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The TSC Text Processing System is the most complex program 
released by TSC to date. With this in mind/ the following 
recommendations should be noted by the user. 


Do not expect to master the system with one reading of the 
manual. The entire document should be read lightly the first time 
through/ followed by a more rigorous reading. The “Reference 
Manual" section is very concise and contains detailed 
descriptions of all of the commands of the processor. This is 
the section which should be studied extensively. 


Since the system is so complex/ many results may occur which are 
contrary to the user's intentions. If strange output is 
encountered/ reread the sections of the manual covering the 
commands being used. fis more experience is gained/ the system 
will become an invaluable tool/ but as with any complex system/ 
it takes time to learn its operation. 













I. 


INTRODUCTION TO TEXT PROCESSING. 


This world is producing millions of words of text each day. 
There are words in newspapers* magazines* books* catalogs* 

pamphlets* letters* documents* and manuals* and they all need to 
be organized before publication. It would certainly be a newer 
ending task if all text formatting and organization were to be 
done manually. It simply would not get done. Thanks to 

computers and programs called text processors* text formatting 
(sometimes called word processing) becomes a fairly trivial task. 
The text processor allows for convenient and precise page 

formatting and organization. The final copy becomes extremely 

readable and neat* which are desirable features of any printed 
matter. 


Just what can be done with text processors? The simplest 
functions perform exact page fitting. In other words* if the 
^ text page should have one inch margins with a page number 
centered at the bottom of each page* and perhaps a special title 
at the top of each* the processor will automatically provide 
these* given the appropriate commands. Line justification is 
another feature provided. Several types are available which 
include left-hand justification (left edge straight* right edge 
ragged)* right-hand only justification (left ragged* right 

straight)* left and right (both edges are straight)* and center 
justification (both edges ragged but lines centered). Rn 
extensive text processor will provide features which will allow 
special operations such as footnote processing. The TSC Text 
Processing System supports all of the above features. 



To gain some insight into the use of a text processor* 
several specific examples will be given using the TSC Text 
Processor's command set. The commands used by text processors 
vary from system to system but many are used in the same fashion. 
The TSC Text Processor uses an intermixed command and text 
method. To issue a particular command to the processor* it is 
necessary to start the command in column number one of a new line 
and begin the command with the control character* a period ('. '). 
This is the method used by most of the large scale system 
formatters including NROFF** which is the system the TSC Text 
Processor has been modeled after. 


Before any specific examples are shown* a description of the 
'environment' will be given. The environment refers to the basic 
page and formatting features which will be in effect unless 
otherwise specified. The initial or default environment is very 
important. The TSC processor* without any command information* 
will perform left and right justification with a line length of 
65 characters (the standard 8 1/2" page line width). Page length 
is initially defined to be 66 lines which is the standard for 11" 
paper and 6 lines/inch spacing. Other initial environment 
features provide for the passing of blank lines to output* and 

♦NROFF is a text formatting program written at Bell 
Laboratories. It runs on many large operating systems* 
including the UNIX Time Sharing System. 
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for any line star-ting with a space or spaces to create a new line 
with the spaces now treated as unpaddable space characters*. 
With the environment initialized as above/ it is possible to take 
any text file not having special command information embedded in 
it and still . receive a sensibly formatted output. This is an 
important feature which is often overlooked by many processor 
designers. The environment may/ of course/ be changed or modified 
at any time by the use of special commands to allow for more 
personalized and detailed formatting jobs. 

Let's take a look at some specific commands of the TSC 
processor. One of the simplest commands is the center lines 
command/ . CE N/ where N is the number of lines to be centered 
within the current line width. To use this command/ as with any 
of the commands/ it is only necessary to place the command right 
before the lines it is to affect. For example: 

. CE 2 

The Design of Text Processors 

An Introduction 

will cause the two lines listed to be neatly centered on the 
page. It can be seen that this is much easier than trying to 
manually calculate the correct spacing. 

The iriitial environment was previously described. All of 
the parameters may be easily changed by the commands which 
directly affect them. One of the commands is . LN N and is used 
to set the current line length. To set the line length to 50/ 
all that is necessary is a command line which reads as follows. 

. LN 50 

The length is now 50 columns. Another parameter easily set is 
the page length using the command . PL N/ where N is the number of 
lines per page desired. Some other commands which change 
environment parameters include . FI and . NF which turn fill mode 
on and off (no fill) respectively. Fill means that as many words 
which will fit within the current line length are placed on each 
output line. This gives a straight left text edge and a slightly 
ragged right one. No fill simply copies the input lines directly 
to the output. It should be noted that 'fill' must be on for any 
justification to occur. The justification feature may be turned 
off using . NJ for 'no justification' or the type of justification 
may be set using . JU X. The X is the selection character and may 
be null which turns justification on in the mode it was 
previously defined/ it may be R for right hand/ C for centered/ 
or N for normal (left + right). Left justification is obtained 
by turning 'fill' on and justification off. 


*Unpaddable spaces are characters which appear as spaces on 
the output but are not recognized as such by the processor. 
This means these spaces will not be 'spread out' by the 
justification routines. 
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Another environmental parameter is the capitalization mode. 
This is a special feature found only on the TSC Text Processing 
System and allows an upper case only terminal to be used for 
preparation of text which will later be output on a hardcopy 
device having lower case capabilities. The commands . CP and . NC 
turn this feature on and off respectively. If this mode is on/ 
all letters are automatically converted to lower case unless 
preceeded by a '0'. The '0' should be thought of as a typewriter 
shift key in its function. Another feature also enabled in this 
mode is similar to the 'shift and lock' on a typewriter. By 
typing a 'T' all characters following will be upper case until 
another 't' is encountered. 



It is often desirable/ for readability/ to use multiple 
spacing between lines. The TSC processor will allow this using 
the command . MS N where N is the space count desired and defaults 
to double spacing (N = 2) if no value for N is given. The single 
space mode can be restore^ by either using .MS 1 or . SS for 
'single space'. 


Another group of commands deal with left margins and 
indentation. The left margin is normally set to 0 since the 
output device usually provides its own left margin <determined by 
paper positioning). Some applications require a wider margin at 
which time . LM N may be used to redefine it to be N spaces wide. 
Indent is-similar to' v 'th© left margin control with one difference. 

. LM N preserves the li»ne length and simply moves the line to the 
right N spaces. . IN N/ion the other hand/ effectively reduces 
the line length by N columns in order to preserve the right hand 
margin. Setting the indent back to 8 will restore the full line 
length. Another form of indenting can be done by the use of the 
single indent command . SI N. Single indent is identical to 
indent except it is automatically restored to 0 after the line is 
output. It should be noted that the commands for left margin/ 
indent/ and single indent are additive in that if the following 

string of commands is issued: 

. * 

. LM 10 
. IN 8 
. SI 5 


the resultant output line would be preceded by 23 spaces/ 
succeeding lines are preceded by 18 spaces assuming another . SI 
command was not used. 

A note of caution is necessary concerning a characteristic 
of several of the processor's commands. Most commands will 
perform only their specified function but some also cause a line 
'break'. A break is the forcing of output of the line currently 
being collected in the line buffer. Normally a line is kept in 
the buffer until the specified line length has been reached/ at 
which time justification may or may not occur/ depending on the 
bode enabled <also assuming that 'fill' is turned on). The break 
will cause the partial line to be output without being filled/ 
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but the appropriate justification will be performed. This is 
useful for starting new paragraphs or new blocks of text. Some 
of the commands which cause a break are . CE.. . FI# . NF# . IN# and 
.SI. Sometimes it is desirable that these commands do not cause a 
break. This can be done by using the 'no break' control 
character# '. So far# all commands have been shown preceeded 
by the normal control character# a period. To set an indent of 
10 and not cause a break# the following should be used: 

:IN 10 

The colon may be used with any command# whether the command 
normally causes a break or not. 

It is often necessary to produce a section of one or more 
blank lines. The space command# . SP N# can be used to output N 
blank lines. The space command also causes a break. If N is not 
specified# the processor will output 1 blank line. It may be 
required that the blank lines all be on the same page# maybe for 
later insertion of a photograph or illustration. The TSC Text 
Processor allows this by using the 'save space' command# . SV N# 
where N is the number of lines required. If there are not N 
lines remaining on the current page# no line is output but 
instead# printing continues and the count <N> is sawed for later 
use. When the next page is reached# the "output sawed space" 
command may be used# . OS# which will then produce the remembered 
number of blank lines. A convenient method for using . OS will be 
given later. Another similar command is the "need lines" 
command# . NL N# where N is a line count. This command says that 
there must be N lines remaining on the current page# and if there 
are not# eject to the next page. This is convenient for keeping 
special blocks of text together (keep them from being split by 
page boundaries?# or for not starting a new paragraph, at the 
bottom of a page if only 1 or 2 lines will fit. 

The commands which have been described so far will allow 
very nice page formatting. If these were all that were available 
in a text processor# much time and effort would be saved. The 
TSC Text Processing System# however# offers many more commands 
and much more versatility. One feature often needed in documents 
or manuals is the page title. There are many different ways of 
providing titles but ‘the TSC processor uses a title command which 
has the form: 

. TL "fieldl'field2"field3" 

where fieldl is left-adjusted# field2 is centered# and field3 is 
right-adjusted. Any one or all of the fields may be present. 
Another feature supported in the TSC processor is the ability to 
print the current page number in the text. Any place a percent 
sign appears# it will be replaced by the page number. A few 
examples will clarify the use of the title command. 
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. TL 
. TL 
. TL 


'Main Title'" 
"Centered Title'Date' 


The first line will left adjust "Main Title" on the page. The 
second example causes "Centered Title" to be centered and "Date" 
to right adjusted. The final example will cause the current page 
number to be printed between two dashes. 




Now it would be nice if there was some way of getting the 
title <and maybe a few other commands) to automatically execute 
at the top and/or bottom of each page of output. The TSC 
processor offers two advanced features to perform this task: 
macros and traps. R macro is a set of commands grouped together 
and given a name. When this name is later referenced, the entire 
group of commands will be executed. Essentially, what results is 
the ability to write special programs using the command set of 
the processor to do specific tasks such as headers, paragraphs, 
special titles, etc. The trap allows the user to specify a 
certain line on the output page where a specific macro is to be 
executed. To solve the title problem stated above it is 
convenient to define two macros, a header macro and a footer 
macro. The purpose of the header is to perform a sequence of 
commands to make the top of each new page appear the same. The 
footer macro works at the bottom of each page. Suppose it was 
required 'that the top of each page have three blank lines 
followed by a centered title and the bottom of each is to contain 
a centered page number between dashes. The following macros and 
trap placement would satisfy this requirement. 

. DM HD 
: SP 3 

. TL "Page Title" 

: SP 3 


. DM FT 
:SP 3 
. TL 
: PG 


. RT 1 HD 
. RT -7 FT 



The .DM command is used to define a macro and the first one 

listed in the example defines the header macro called HD. The 

header macro will space down 3 lines Cwithout causing a break 
since the no break control character ('■• ') was used?, print a 
centered title, and finally print 3 more blank lines without 

causing a break. The last line of the header macro definition is 

.' and is the command for terminating a macro definition. The 
second macro defined is FT and is used for the footer. Upon 
execution it will space down 3 lines (without a break), print a 
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centered page number/ and eject to the next page. The . AT 
commands were used to set the trap locations. .AT 1 HD causes 
the header macro to be executed at line 1 of every new page while 
AT _7 px causes the footer macro FT to be executed at the 7th 
line from the bottom of each page. The ability to specify trap 
locations and define macros makes titles and footers extremely 
simple and efficient. 

One of the important aspects of using a text processor is 
the ability to make a few minor command changes and greatly 
change the final copy. As an example/ suppose at the last minute 
it was decided that it would look better if there were four blank 
lines at the top of each page rather than three. If the document 
were being prepared by hand it would be necessary to retype the 
entire work to obtain the extra space. Using a small text 
processor it would only be necessary to go back and change the 
line count before each title. The TSC Text Processor and its 
ability to define macros means only one line in the entire text 
file needs to be changed. The second line of the header macro 
which is currently ':SP 3 ' would be changed to read ':SP 4'-! One 
simple change and the desired result is obtained! It should be 
kept in mind that when preparing documents with a processor 
supporting macro capability/ all of the often-used command 
strings should be defined in a macro so simple global changes may 
be easily performed if so desired. 

There are more advanced features supported in the TSC Text 
Processing System. One of these is the ability to do conditional 
command execution. There are four forms of this command: 

. IF 0 . XX 
. IF E . XX 
. IF N . XX 
.IF !N . XX 

where 0 and E stand for Odd and Even page number respectively/ 
and N can be a number/ a number register (to be explained 
shortly)/ or an expression containing numbers and number 
registers. The exclamation point is the 'NOT' operator and . XX is 
any command or macro name. The command works as follows; IF the 
condition is true (page is odd or even/ or the number or 
expression is greater than zero) the command XX is executed/ 
otherwise it is not. Preceding the expression by '!' will cause 
the command or macro to be executed only if the condition is not 
true (less than or equal to zero). The following special header 
macro definitions will illustrate the use of this command. 

. DM HD 
:SP 3 

. . IF 0 . TL "'Title' 

. IF E . TL 'Title'" 

: SP 2 
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. DM HD 

. gp 3 

. IF y.-l . TU "Title" 
: SP 2 


The first header defined causes the title to be right-adjusted on 
odd numbered pages and left-adjusted on euen pages. The second 
definition will print a centered title on each page except page 
number one since the value of the expression will be zero when 
the page number is one (remember that the 'X' represents the 
current page number). 

Rnother feature contained in the TSC processor is the 
ability to use number registers. Two types exist# one which 
allows the user to read and access certain system parameters 
including the date/ page number., current indent/ left margin/ 
current column position/ current line on the page/ and line 
length. The second typo are user definable and can be used 
exactly as variables would be used in a program. N.umber 
registers are the single letters fi-Z and the percent sign <X) 
already introduced. Several other number register features are 
supported by the TSC processor/ including auto increment/ 
assigning values to the registers/ use in expressions <as seen in 
the . IF command)/ and the ability to print any register on the 
output in either Arabic/ capital Roman/ or small Roman numerals. 

Some processors/ including TSC's/ allow communication 
between the processor and the operator during actual text 
processing. Three of these commands take on the following form: 

.ST 

. TM any string 

. GI any string 

The first command will stop the processing and print 'STOP' on 
the user's terminal. This may be desirable if special paper 
positioning is required or other special action is needed. When 
the processor has been stopped it may be restarted by typing any 
character on the terminal except an 'S' which will halt 
processing. The second command listed will send 'any string' to 
the terminal as a special message. It may be used before the 
'STOP' command to issue special instructions to the operator. 
The last command will 'Get Input' from the terminal and insert it 
into the output stream. 'Rny string' can be used for a prompt, 
fin example where this command is quite useful is in the 
preparation of form letters. The processor may prompt the 
operator for names and addresses which are then typed in at the 
terminal and automatically inserted into the text! 

One final command will be described in this introduction/ 
the 'divert text' command. Sometimes it is desirable to save 
text currently encountered for later use. fin example of this is 
when trying to do footnotes. It would be nice if immediately 
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after the footnote reference was made* the actual footnote text 
could be typed# but sawed for later insertion at the bottom of 
the page. The mechanism which allows this sort of operation is 
called a 'diversion' and is only available on the more complex 
text processors# such as TSC's. Two forms of the diversion 
usually exist: 

v • 

. DI XX 
^ .DA XX 

where . DI instructs the processor to divert the following text 
into a diversion space named XX and . DA says to divert and append 
to the diversion space named XX. During diversion# all normal 
text processing still takes place# but rather than outputing the 
text to the printer# the text is written to a special place 
internal to the processor. The diversion process continues until 
the command for a divert is found without a name specifier. To 
recall the diverted text# it is only necessary to call it by 
name# exactly as macro calls are performed. 

As an advanced exercise and demonstration of the diversion 
process <as well as many other processor commands) a complete set 
of macros for handling footnotes will be described. The reader 
should note that the following example is very complex and 
several readings will probably be required in order to fully 
understand its operation. 

. NR B 7 
. DM HD 
: SP 2 

.IF X-1 . TL 'FOOTNOTE TEST'" 

: SP 2 
. AU 1 
. NR X 0 
. NR W 0-#B 
.IF #V . TR 
. NS 

. DM FO 
. NR V 0 
. IF #X . FT 
. CH FO -#B 
:PG 

. DM NM 
.TL 

. DM BF 
. DA TX 
. EV 1 

. IF !#+X-± . SA 


- continued on next page - 
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1 . DM 

. BR 
, * v . EV 

- ... D i 

.NR 
. CH 
. IF 



14 -#V 
FO #14 

#N-#P-#W . CH FO #N+1 




v- .DM SR 


* V .. . BR 

r # r- r. 


‘ • ! DM 

TR i. . 

., •: \* '>» ”, . \H- ■ 

BF •: 

i r s -vs 

»’ i (> ' v r ’ \i C' • r.« 

‘ i . NF 


' *■*' / 4 

FE 

: Z : *./ C‘ ■’; 

; no '■* • s. 

• FI 


$ ; ’<:>. * ’ A t.? p n j.. g 

jtli. EF 



, , 


i pop •’* 

. DM 

FN 


. DI 

FE 

... - ■> -V ;•*. p f.'| V ) 


:• ’ , , * V 

v V •10 S T i)0C K, Cj 

.• . DM 

FT 

r .. 1 • • r 

.. EV 

1 

• * • p'-’f f 

. . NF 

f . .. 


* . TX 



. RM 

TX 


. DI 


% 

. FI 



. EV 

0 





•. RT 1 HD 
.RT -#B FO 
. RT -4 NM 
. CH FO 70 

. RT —#B FN or • 

.CH FO -#B 
. EV 1 

. RU 1 --a - 

. LN 55 
. EV 0 

This example is quite similar to the one given in the "NROFF 
Users' Manual" written by J. Ossanna* of Bell Laboratories. To 
use these macros* merely insert their definitions at the 
beginning of the text file* and immediately after a footnote 
reference has been made* call macro BF. Following th© call* 
...simply type the footnote text and end it with a call to EF. 

R description of the macros follows. The first line defines 
number register B and sets it equal to 7. Number register B is 
used to specify the size <in lines) of the bottom margin. R 
header macro definition follows <HD) and provides several 
functions. After spacing down two lines* the title is output 
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unless it is page number one <the IF command). Two more lines 
are produced and the auto increment value is set to one. Number 
register X is cleared and it is later used to keep track of the 
number of footnotes on the current page. Next/ W is set to the 
location of the bottom margin trap and will later be adjusted as 
necessary if footnotes are added. The IF #V command checks to 
see if there is any remaining footnote text from the previous 
page and if so they are reprocessed (number register V contains 
the line count of the last diversion). Finally/ the 'no space' 
mode is turned on to suppress any spaces which might otherwise 
get printed needlessly at the top of the page. 



The footer macro/ FO/ clears the diversion count/ V/ and 
checks the value of X. If X is not zero (meaning there were 
footnotes on the page)/ macro FT is invoked. The footer is then 
restored to its original location by using the Change command as 
defined by B. The last command does a page eject. Macro NM is 
used to print a centered page number at the bottom of each page. 




The begin footnote macro/ BF/ starts with a divert append 
into the diversion space called TX. The environment* is 
switched/ and if it is the first footnote on the page/ macro SR 
• is invoked which outputs a set of dashes as a simple footnote 
separator line. Diversion of the footnote text continues until 
macro EF is called. fit this time a 'break' is executed and the 
original environment is restored. The diversion is stopped with 
the DI command. Number register W is updated by the number of 
diverted lines and the footer trap line is changed to compensate 
for the added footnote lines. Finally/ if the number of diverted 
lines was great enough to move the footer trap up past the 
current line position/ the trap is reset to the next line. TR is 
responsible for rediverting any lines of footnote text which will 
not fit on the page. It is very unusual for this to happen but 
this may occur if a footnote is very long and is referenced near 
the bottom of the page. 



Macro FT is used for reading back the diverted text. It 
switches environments/ sets the no fill mode/ and calls TX/ the 
actual footnote text. TX is then removed from the macro list/ 
the fill mode is restored/ and the environment switched. The 
last group of lines is used to define the trap locations of the 
various macros. The header is set to line one/ and NM is set to 
execute four lines from the bottom of the page. The trap for the 
footer is planted at —#B/ then moved past the bottom of the page 
while FN is also placed at -#B. FO is then moved back as 
originally placed so in effect both FO and FN are placed at the 
same line/ but trap FN can only occur if the footer trap is moved 
up by the occurrence of a footnote. The last lines switch to 
environment one and initialize it for a line length of 53 and 
auto increment of one. 


♦Environment switching is a feature supported by many of the 
larger text processors (including TSC's) which allows all of 
the major environment parameters to change simultaneously. 
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As a final example of how a "text processor can be used* a 
sample section of text will be given. The text is shown first 
with the commands and then as the text processor would output the 
final copy. 

. SP 2 
. CE 2 

tTEST OF SEVERALt 
tPROCESSOR COMMANDSt 

. SP • 

SI 5 

©THIS EXAMPLE SHOWS HOW COMMANDS AND TEXT CAN BE INTERMIXED 
FOR LATER PROCESSING BV A TEXT PROCESSOR. 

©THE EXAMPLE STARTED BV CENTERING TWO LINES FOLLOWED 
BV A SINGLE INDENT TO SIGNIFV THE START OF A PARAGRAPH. 

©THE CAPITALISATION MODE IS ON AND THE UPPER CASE SHIFT 
CHARACTERS ARE BEING USED. 

. SP 

. LM 10 
. LN 45 
. JU C 

©THE ADJUST MODE WAS JUST CHANGED TO CENTERING 
AS WELL RS A LINE LENGTH OF 45. 

©THE LEFT MARGIN WAS SET TO 18 TO GIVE A NICELV 
CENTERED NARROW LINE. 

©SPECIAL- EFFECTS LIKE THESE ARE ERSILV ACCOMPLISHED. 

. SP 
. LM 0 
. LN 65 
. JU N 

©THE PARAMETERS WERE JUST SWITCHED BACK SO THE 
LINE APPEARANCE WILL BE RESTORED. 

THIS IS A SHORT EXAMPLE BUT SHOULD SHOW HOW THE 
COMMANDS CAN BE INTEGRATED WITH THE TEXT. 


This example appears in its expanded form on the next page. 

This introduction to text processing is intended to be only 
that and is not a complete treatment of the subject. Many 
commands and features have been omitted. The ones included are 
the most general and the most used commands which offer the user 
a great deal of control and flexibility. Hopefully some eyes 
have been opened to the wide variety of applications of the text 
processor. 
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EXPANDED EXAMPLE 


TEST OF SEVERAL 
PROCESSOR COMMANDS 

This example shows how commands and text can be intermixed 
for later processing by a text processor. The example started by 
centering two lines followed by a single indent to signify the 
start of a paragraph. The capitalization mode is on and the 
upper case shift characters are being used. 

The adjust mode was just changed to centering 
as well as a line length of 45. The left 
margin was set to 10 to give a nicely 
centered narrow line. Special effects like 
. these are easily accomplished. 

The parameters were just switched back so the line appearance 
will be restored. This is a short example but should show how 
the commands can be integrated with the text. 




♦NOTE: This entire user's manual was prepared using the TSC Text 

Editing System and the TSC Text Processing System. 









Command Surrimar y 


Command 

Initial 

Default 

Cause 


Form 

Value 

Argument 

Break* 

Explanation 

I. PAGE CONTROL 




. PL +N 

66 lines 

66 lines 

no 

Page length. 

. PG +N 

N-l 

- 

yes 

Eject to next page. 

. PN +N 

N=1 

ignored 

no 

Page number. 

. LM +N 

N«0 

previous 

no 

Left margin. 

. NL N 

— 

N=1 

no 

Need N lines. 

II. TEXT FILLING/ ADJUSTING/ 

AND CENTERING 

. BR 


* # 1 . 

yes 

Break buffer. 

. FI 

fill 

- 

yes 

Fill output lines. 

. NF 

fill 

- 

yes 

No fill or justification. 

. JU C 

jst/ norm 

just. 

no 

Justify on. 

. NJ 

just. 

- 

no 

No justification. 

. CE +N 

off 

N=1 

yes 

Center N input lines. 

III. VERTICAL SPACING 



. MS N 

p rev 

N=£ 

no 

Multiple spacing. 

. SS 

single 

- 

no 

Single space lines. 

. SP N 

- 

N=1 

yes 

Space N lines. 

. SV N 

- 

N=1 

no 

Save N lines. 

. OS 

- 

- 

no 

Output saved lines. 

. NS 

space 

- 

no 

No-space mode on. 

. RS 

— 

— 

no 

Restore spacing. 

IV. LINE LENGTH AND 

INDENTING 



..LN +N 

65 

preu 

no 

Line length. 

. IN +N 

N=0 

prev 

yes 

Indent. 

. SI +N 

- 

N«1 

yes 

Single indent. 

. PI ST 

— 

/ 

yes 

Put string in indent. 

V. MACROS/ 

DIVERSIONS/ AND LINE TRAPS 


. DM XX 

— 

ignored 

no 

Define or redefine a macro 

. AM XX 

- 

ignored 

no 

Append to a macro. 

. RM XX 

- 

ignored 

no 

Remove macro or diversion. 

. DI XX 

- 

end 

no 

Divert out to macro "XX". 

. DA XX 

- 

end 

no 

Divert and append to "XX". 

. AT -N XX 

- 

- 

no 

Set trap at line N. 

. CH -N -M 

- 

- 

no 

Change trap location. 

.CH XX -M 

- 

- 

no 

II II H 

. • 

- 

- 

no 

End macro specification. 


♦The use of ': ' as the control character (instead of 
suppresses the break function. 
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Command Initial Default Cause 

Form Value Argument Break Explanation 

VI. NUMBER REGISTERS 


. NR 

X +N 

- 

- 

no 

Number register. 

. AU 

+N 

0 

p rev 

no 

Set auto increment. 

. AR 


arable 

- 

no 

Arabic numbers. 

. CR 

. * 

arabic 

■- * 

no 

Capital Roman numbers. 

. SR 


arable 

— 

no 

Small Roman numbers. 

VII. 

TABS 

AND TAB 

CHRRflCTERS 



. TA 

N. . . 

none 

non© 

no 

Set tab columns. 

. TF 

c - 

un. sp. ♦ 

un. sp. * 

no 

Set tab fill character. 

. TC 

C 

none 

none 

no 

Set tab character. 

VIII. THREE PART 

TITLES 


• 

. TL 

'left 

'center'i 

right' 

no 

Define title. 

. LT 

+N 

63 

prev 

no 

Length of title. 

IX. 

CONDITIONAL INPUT COMMANDS 

.* 

. IF 

C COMMAND 

_ 

no 

If true< do command. 

. IF 

!C COMMAND 

... 

no 

M 

. IF 

N COMMAND 

- 

no . 

II 

. IF 

!N COMMAND 

- 

no 

II 

X. ENVIRONMENT SWITCHING 



. EV 

N 

N=0 

N«»0 

no 

Change environments. 

XI. 

SPECIAL CONTROL COMMANDS 



. CP 


no caps 

- 

no 

Capitals mode on. 

. NC 


no caps 

- 

no 

No caps mode. 

. ST 


- 

- 

yes 

Stop processing. 

. EX 


— 

— 

yes 

Exit processor. 

. PS 


no pass 


no 

Pass text without proc. 

. RP 


- 

- 

yes 

Repeat entire file. 

. DH 


— 

- 

yes 

Double height line**. 

. DM 


- 

- 

yes 

Double width line**. 

. DB 


- 

- 

yes 

Double height and width**. 


♦Un. sp. » unpaddable space character. 

♦♦These commands require the output device 
to support double dimensioned character printing. 












i 
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C ->rnmand 

Initial 

Default 

Cause 



Form 

Value 

Argument 

Break 

Explanation 


XII. EXTERNAL COMMUNICATION 




. TM ST 


- 

no 

Send string to 

terminal. 

. GI ST 



no 

Get line from 

terminal. 

XIII. MISCELLANEOUS 





. * 

- 

- 

no 

Comment field. 



SPECIAL CHARACTER DEFINITIONS 


Character Meaning 



Standard escape character. 
Force capital letter. 

Set capital letter mode. 
Number register specifier. 
Basic control character. 

No break control character. 


ISl/t 


h 


NUMBER REGISTERS 


Register Meaning 


R-B 

C 

D 

E-F 

G 

H 

I 

J-K 

L 

M 

N 

0 

P 

Q-U 

V 

U-X 

V 
Z 
Y. 


User definable 
Current column count 
Day of the month 
User definable 

Get Input GI> character count 
User def. 

Current indent / 

User def. 

Current line length 
Month 

Line count on page 
Current left margin 
Current page length 
User def. 

Last diversion line count 
User def. 

Vear <2 digits) 

User def. > 

Page number. 
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Re-Terence Manual 


INTRODUCTION 

All input lines to the processor which are to be interpreted as 
commands should be started with the control character (a ' or 
in column one followed immediately by the two letter 
command. If the characters are not system command names or user 
defined macros; the line will be ignored. The 'nobreak' control 

character (':') may be used with any command to suppress normal 

line breakage during processing. Only a single command reference 
is permitted on any one line. 

The following detailed command descriptions reference numerical 
arguments either as N; +N; or -N. N means any argument is taken 
as absolute and any previous value is simply replaced by the new 
value. +N is used when the argument may take any form of a 
number (either positive; negative; or absolute). Valid arguments 
of this form are +4; -10; and 3 where the old value would be 

incremented by 4; decremented by 10; and replaced by 3 

respectively. Arguments of the form -N may use absolute values or 
negative values which are subtracted from the current page length 
(to reference N number of lines from the bottom of the page). 
When expressions are involved using the +N argument; the entire N 
is evaluated before the increment or decrement is applied (e. g. 
-6-3 will decrement the value by 3). Certain commands requiring 
arguments will keep the last argument assigned if the argument 
field is left empty when the command is called. 


I. PAGE CONTROL 


The page control commands are used to set the physical page 
parameters such as length; width; margins; numbering; etc. Top 
and bottom margins are not automatically provided and should be 
defined by the user with macros as described in a later section. 


. PL +N Set page length to N lines. Initial value is 66 lines 
and is reset to 66 if no argument is given. Does not 
cause a break. The maximum N is £55. 

. PG +N Eject to next page. If N is given the new page number 
will be adjusted accordingly. The page number is 
automatically incremanted if no argument is given and 
the command does cause a break. Max N is 255. 


. PN +N Set the page number to +N. If . PN occurs before the 
first break or first text; it will be set for the first 
page. The value is initially 1 and the command does 
not cause a break. The maximum page,number is 255. 

.LM +N Set the left margin according to +N. The entire output 
line will be offset to the right by the number of 
spaces the current LM is defined. Initially there is 
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l 




. NL 


N 


no margin (N=0) and no break occurs. Left margins 
should not exceed 100. 

Need N lines on the page. If the distance to the next 
trap position or the bottom of the page is less than N/ 
the paper is advanced to the next trap position (blank 
lines output). Otherwise no action takes place. No 
break occurs and the default argument is N 3 !. 




II. TEXT FILLING. ADJUSTING. AND CENTERING 

The following commands affect the appearance of individual lines 
of text. Twb important parameters are referenced. Fill an 
Justify. The default fill mode is to fill output lines with as 
many words as possible without exceeding the set line length 
value. Any extra words are saved for output on the next line. A 
word is defined to be any string of characters separated by a 
space or spaces. If two words are to be separated by a space but 
are not to be split across line boundaries or separated by the 
justification routines, the unpaddable space character. 

(slash space) may be used. The default justification mode xs 
left and right, giving straight margins on both sides. Filled 
lines which contain too few character positions to completely 
fill out the specified line length are padded with spaces until 
the correct length is achieved. The space filling or padding is 
done from alternate sides of the page as each line is justified 
to eliminate 'white rivers' which may otherwise occur in the 
text. No hyphenation is performed. It is important to note that 
fill must be on in order for the justification to be performed, 
but fill may be on by itself. If fill mode is off. characters 
are passed exactly as they appear on the input file. 

BR Break the line currently being filled in the buffer. 

The line is output after specified justification is 
done but no further filling or padding is attempted. 
Input lines beginning with spaces and empty text lines 
(blank lines) also cause a break. 

pj Fill mode is turned on and subsequent output lines are 

filled. This command causes a break. 

Np Turn off fill mode (nofill). Following input lines are 

neither filled or justified. but are copied to the 
output exactly as they appear on input, without regard 
to the current line length. Causes a line break. 


. JU C 



Justification is enabled. If fill mode is off. 
adjusting will be deferred until it is back on. If the 
justify type character. "C". is present the 
justification type is set as follows:, N sets for normal 
(default. left and right). R sets right only justify, 
and C will center lines (both margins ragged). If the 
type character is absent, justification is turned back 
on with the type previously used. No break is caused. 
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. NJ 


Turn justification off. If fill is on* the resultant 
output line will have a straight left and a ragged 
right edge. No break is caused and the justify type 
remains unchanged. 


. CE +N Center the next N input lines. fl break occurs before 
the command and then automatically after each line is 
output. If the resultant line is longer than the 
. • current line length* the output line will be left hand 
adjusted. The maximum count is £55. 

III. VERTICAL SPACING 


All line spacing defaults to standard single spacing. It may be 
( set at any time by using the MS command. If the line spacing is 
N* N-l blank lines are inserted after each output line. The 
occurrence of a trap will terminate any remaining spacing count. 
Contiguous space should be saved by using the SV and OS commands. 


. MS N 



. SS 


. SP N 



Set multiple line spacing to N. N-l blank lines are 
inserted after each output line. No break is caused 
and if N is not specified the value of 2 will be used 
(double spacing). Max value is 255. 

Set single space mode. No blank lines are output after 
'text lines and no break occurs. 

**.vf ' r - ^ ■* v .* ’ » 

Space N lines. The number of : output lines is limited 
to the distance to the nearest trap or bottom of the 
page. If nospace mode is on* no spaces are output. If 
no value for N is given* it defaults to 1. SP causes a 
break. 

Save N lines of space. If the distance to the next 
trap (or the bottom of the page) is greater than N* N 
lines are output* otherwise no lines are immediately 
output but the count (N) is saved for later output (see 
OS). Subsequent SV commands will overwrite any 
previously remembered N. Nospace mode has no effect. 
The command does not cause a break and the default 
value for N is 1. 


. OS 


. NS 



Output saved space. This command is used to output any 
previously saved space from the SV request. The 
remembered count is cleared after calling OS and 
nospace mode has no effect. A break does not occur. 

No-space mode is turned on. The no-space mode inhibits 
SP requests and PG requests without a next page number. 
This mode is automatically turned off after the output 
of a line of text. No break is caused. 

Restore space mode. If the nospace mode is on* it is 
turned off with this command without causing a break. 


- 3 ^ 9 - 







TSC TEXT PROCESSOR USER'S MRNUflL 
VERSION 2. 3 


IV. LINE LENGTH AND INDENTING 

Using the following set of commands. the user has complete 
control over the line length and various forms of indenting. The 
line length includes all indent spaces but does not include left 
margin spacing. Rs . long as the fill mode is turned on/ the 
resultant output line will be less than or equal to the current 
line length minus the indent. Line lengths of less than 6 
columns are not permitted. 

. LN +N Set line length. The initial value is 65 columns and 
the command does not cause a line break. Line lengths 

• must be between 6 and 255 columns inclusive. 

1 

. IN +N Set the line indent according to N. With a line length 
of L and an indent of N.. N spaces are output before 
each line and the remaining text is restricted to a 
size of L-N. Initially the indent is 0 and the command 
causes a break. 

. SI +N Single indent N spaces. Only the next output line will 
be indented by the amount specified by N. Note that 
single indenting may be done backwards into an indent 
field. <e. g. if indent is 10. SI -4 would temporarily 
set the overall indent to 10-4 or 6). IN and SI counts 
are cumulative and the final value may not be negative! 
This command causes a line break. 

.PI ST Put string in indent field. The string represented by 
"ST" (leading spaces ignored). is inserted into the 
field normally filled with spaces by the indent count. 
If the string is longer than the indent count, the 
string will be truncated so it will not extend past the 
indent field. 

V. MACROS. DIVERSIONS, AND LINE TRAPS 

A macro is a set of commands and/or text which can be assigned a 
name and called by name at a later time. fill macro names are two 
characters long and must be different from any names already in 
existence in the system command name table. Macros are defined 
or redefined by using the DM command, or by using the output 
diversion command, DI. Macros already in existence may be 
appended to by using the RM or DR commands. If a macro is named 
XX, it may be invoked by an input line beginning with XX". A 
trap may also be placed at a specific vertical page placement to 
cause automatic macro execution at that point by using the AT 
command. During macro definition, number registers are not 
expanded into numeric values but are at the time the macro is 
executed. No other special character translation is done during 
macro definitions <e. g. tab expansion, etc. ). Keep in mind that 
macros may be any combination of commands, macro calls, and text, 
but a macro may not define another macro <it may create a 
diversion). 
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A diversion is treated as a macro upon execution but is created 
in a different manner. Processed output may be diverted into a 
macro space for such purposes as footnote processing or vertical 
page size determination for conditional changing of page 
parameters (number register V contains the last diversion line 
count). All normal processing takes place during a diversion 
except left margins. It is standard practice to read back the 
diverted text in 'nofill' mode to suppress further line 
processing. 

If at any time during macro definitions or diversion creation the 
macro space is overflowed, a system error will be generated and 
processing will be halted. None of the macro commands cause 
breaks in the line filling. 


DM XX 


AM XX 


RM XX 


DI XX 


Define or redefine a macro with the character name XX. 
The actual macro begins with the next input line. The 
macro definition is copied until the termination 
character ". . " is found starting in column i. Macros 
may not contain DM requests but may create diversions. 

Append to the macro named XX. This command acts 
exactly like DM except the following input lines are 
appended to an existing macro rather than creating a 
new named space. 

Remove macro or diversion. The macro named XX is 
removed from the name list and subsequent calls to this 
name will have no effect. 

Divert output into the macro space named XX. The macro 
'named XX is defined or redefined at this point. All 
normal text processing occurs during diversions except 
left margin page offsetting is not done. The diversion 
process is ended when another DI or DA is encountered. 
Diversions can not be nested! The count of the number 
of lines last diverted is kept in number register V for 
possible later reference. 


DA XX 


Divert append version of DI. 
both commands. 


The same rules apply for 


PIT _n XX At line N invoke macro XX. Any macro previously 
planted at line -N is replaced by XX. N Is measured 
from the top of the page <0 or i may be used to 
represent the top) and -N is measured from the bottom 
’ of the page <e. g. if the page length is 66. line -1 

represents line 66). If no macro name is given with 
the command# the trap located at line -N. if any. is 
removed. 


. CH -N -M Change trap. 


See next. 
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CH XX **M Change The "trap planted at line -W to occur instead at 
line -M. Alternately/ change the location of the trap 
for macro XX to line -M. If there is not a trap set at 
-N/ the request is ignored. 

Terminate a macro definition. 

VI. NUMBER REGISTERS 

Number registers are a type of variable used during processing. 
There are two classifications/ user definable and system. Number 
registers have single character names <A through Z and 'X'). 
Number registers may be used any time a number is expected in a 
command and also may appear imbedded in text. There are two 
methods of referencing a number register: 

#X 

#+X 

where is the register designator character and X is the name 

of the register. When using 'X' it should not be preceeded by 
the The ' + ' in the second example specifies that the 

number register is to be auto incremented prior to its use and it 
will retain the new incremented value. The auto increment amount 
is set using the RU command. When a number register reference is 
encountered it is converted to decimal/ lower case Roman/ or 
upper case Roman/ as determined by the mode set. Number 
registers appearing in macro definitions are not converted until 
the macro is actually executed. Number registers may also be 
used to construct expressions any time a number is expected in a 
command (expressions may not be imbedded in text). The 

expressions are evaluated left to right and may contain only the 
operators '+' and 

. NR X +N Assign a value to number register X. This command 

should only be used to assign values to user definable 
number registers. 

. AU +N Set the auto increment amount to +N. Any time a 

register is referenced as "#+X M / the AU value will be 
added to it prior to its actual use. 

. AR Arabic numbers. See below. 

. CR Capital (upper case) Roman numbers. See below. 

•SR Small (lower case) Roman numbers. Number registers 

will subsequently be converted into Arabic/ capital 
Roman/ or small Roman respectively. This mode is 
initially Arabic and also applies to the outputting of 
page numbers using the 'X'. 
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The following is a list of the system and user definable number 
register names. 

Register Meaning 


A-B 

C 

D 

E-F 

G 

H 

1 

J-K 

L 

M 

N 

0 

P 

Q-U 

V 

W-X 

V 

2 

y. 


User definable 
Current column count 
Day of the month 
User def. 

Get input (. GI) character count 
User def. 

Current indent 
User def. 

Current line length 
Month 

Line count on page 
Current left margin 
Current page length 
User def. 

Last diversion line count 
User def. 

Vear <2 digits) 

User def. 

Page number 


VII. TABS AND TAB CHARACTERS 

The currently defined horizontal tab character is replaced by the 
required number of fill characters corresponding to the distance 
to the next defined tab stop column (on the line currently being 
filled). The fill character is normally the unpaddable space 
character but may be defined by using the TF command. Up to 20 
tab stops may be defined and should be set in ascending order. 
Initially no tab stops are defined and the tab character is null. 
Any non alphanumeric character may be defined as the tab 
character. It should be noted that using tabs with the fill mode 
turned on can result in nonsensical output tab fields since the 
user may not know what the current output column is. 


. TR N/ .. Tab stop settings. The default tab stops are all null 
(none) and a total of 20 may be defined. The stop 
values may be separated by spaces/ commas/ or any other 
nonnumerics/ e. g. TA 10/ 20/ 25/ 40. 

• TF C Set the tab fill character. This is normally the 

unpaddable space character but may be defined to any 
nonnumeric printable character. If 'C' is not 
specified the fill defaults to the unpaddable space 
character. 


TC C Define the tab char cter. Initially the tab character 

is null (none) bu J may be defined to any nonnumeric 
printable character. If 'C' is not specified the tab 
character again becomes null. 



\ 
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VIII. THREE PART TITLES 

Very convenient titling may be performed by using the TL command. 
Three fields may be used for left, centered, and right 

justification of titles. fill 3 fields may be used or any 

combination of fields. The justification is done with respect to 
the title length which is independent of the defined line length. 
This length is initially 65 columns. The use of TL has no effect 
on current line accumulation (does not cause a break). . TL is 
usually used in header and footer macros. For example, 

. TL will print the page number in the center of the title 

length. 

.TL 'LEFT'CENTER'RIGHT' 

Place titles adjusted according to field. The strings 
represented by "LEFT", "CENTER", and "RIGHT" are 

respectively left adjusted, centered, and right 

adjusted within the current title length. Any of the 
fields may be empty and any nonnumeric printing 

character may be used in place of the field delimiter 
The "X" character will be replaced by the current 
page number in Arabic or Roman representation. 

.LT +N Set title length. The lengths of titles and lines are 
separate parameters. Indents do not apply to titles 
but left margin adjustment does. 

IX. CONDITIONAL INPUT COMMANDS 

Input command and macro calls may be performed on a conditional 
bases. Chained conditionals are permitted as in: IF #R IF #B . XX. 

.IF C COMMAND See next 

.IF !C COMMAND . 


IF N COMMAND 


IF !N COMMAND 

IF is the conditional command. "COMMAND" can be any 
system command or macro name. "C" is a built in 
condition code and can be either 0 or E to^represent 
Odd or Even page numbers respectively. "N" is any 
number and can be a number, a number register, or any 
combination of these in the form of an expression using 
addition and subtraction. If the condition is true 
(the built in condition is satisfied or the number is 
greater than zero), the command or macro named is 
executed, otherwise the command is ignored. If C or 
«N" are proceeded by a '!' (not), the command is 
executed if the condition is false or the number is 
less than or equal to zero. 
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X. ENVIRONMENT SWITCHING 

There are a* number of parameters which control the text 
processing and are grouped together and called the environment. 
These environment parameters may be changed all at once using the 
switch command. There are two environments/ 0 and 1. They both 
have identical initial values for all parameters. Parameters 
within these environments are those associated with: 


line length 
indenting 
adjusting 
filling 
title length 


vertical line spacing 
centering count 
auto increment 
partially collected words 
partially collected lines 


All other parameters are global/ or in other words/ they are not 
switched with the environment but remain unchanged. Examples of 
global values include left margin/ page number/ current line 
number/ number registers/ trap tables/ and macro definitions. 
Since partially collected words and lines are kept with the 
environment/ switching environments will not cause a break and 
will also preserve any left over words. 


EV N Change to environment N where N can be G or 1. 

left null/ environment 0 is assumed 


If N is 


XI. SPECIAL CONTROL COMMANDS 

The following commands control certain aspects of the processor. 
The double height and width commands are hardware dependent. Vou 
should refer to the "adaption" section of this manual for 
details. 


CP 


NC 


ST 


Turn capital letter mode on. When enabled/ this mode 
will allow the use of an upper case only terminal to 
prepare text for later output to a device which 
supports both upper and lower case. Each character is 
automatically converted to lower case unless it is 
immediately preceeded by a '<?' at which time that 
character remains upper case. Strings of characters 
may be kept in upper case by enclosing them between up 
arrows "T". The "0" is like a shift key and the "t" 
acts like a shift and lock key. 

Turn off capitals mode. Initially this mode is off and 
the special capitalization characters <"<?" and "t"> are 
ignored. 

Stop causes processing to temporarily halt.and the word 
"STOP" is output to the terminal. At this time/ typing 
an "S" will cause all processing to be stopped and the 
processor will be exited. Typing any other character 
will cause processing to continue. The stop command 
does cause a line break 
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. EX 


. PS 


. RP 


. DH 

. DM 

. DB 


Exit the processor. Text processing is stopped just as 
if all input had been finished. This command is useful 
in conjunction with the IF command. 

Pass all input to the output. This command is 
primarily intended as a debugging aid since it allows 
all input (including command lines) to be passed to the 
output. No command interpretation or processing is 
done and once in this mode/ the remaining text will be 
passed until the end of the input file is reached. 

Repeat processing on file. This command will cause the 
file to be 'rewound' and all processing to be repeated. 
This is useful for some form letter type applications. 

Print the next line in double height characters. This 
feature requires special hardware on the output device. 
Consult "Adaptions" for details. 

Print the next line in double width characters. 
Requires special hardware. 

Print next line in both double height and double width 
characters. Requires special hardware. 


XII. EXTERNAL COMMUNICATION 


Two commands exist which allow for communication between the 
processor and the user during actual text processing. The TM 
command is useful for sending special instructions to the 

terminal such as paper adjustment or character font change 

information. The GI command can be used in form letter 

preparation or insertion of special text strings while processing 
is ; taking place. 

\ 

. TM ST Send a message to the terminal. ST may be any string 
of characters or words. The leading blanks are 
ignored. The message is simply output to the terminal 
and may be. used before the Stop command to issue 

special instructions. 


GI ST Get input from the terminal. If ST is present (any 
string)/ it is output to the terminal as a prompt 
message. Characters typed from the terminal following 
the execution of GI are automatically inserted into the 
input stream for text processing. This command can be 
used to get name and address information for form 
letter preparation. The 'get input' function is 
terminated by typing a carriage return/ therefore/ only 
one line of text may be entered with each GI command 
executed. After completion of the command/ the number 
register G contains the character count of the string 
typed (not including the carriage return). 


i 
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XIII. MISCELLANEOUS 


The following describe some of the smaller features of 
processor. 


the text 


Comment field. This may be used to insert comments 
into the input text and will be ignored by the 
processor. No output is created with this command (the 
“ comment is not passed to the output). 


Special Characters 


A/ 


y. 


Standard escape character. This character is used to 
remove special meaning from a character. For examples 
if a percent sign ("X" ) is needed in the output it is 
necessary to proceed it with the "^1^*, otherwise it will 
be interpreted as the page number (e. g. To print 

a backslash, w must be used. 

Force upper case letter if in the capitals mode (CP). 
This acts similar to the '’shift' key on a typewriter. 
Example- "@test" will be output with an upper case "T" 
and lower case "est". 

Upper case string delimiter This character acts 
similar to the 'shift and lock' key on a typewriter. 
.As an example, Tthis is a testt would cause "this is a 
test" to be output in all upper case characters. The 
capitals mode must be on (CP). 

Number register specifier. When an alphabetic 

character is immediately proceeded by a it will be 

interpreted as a number register. Example: "#A" refers 
to number register "A". 

the period is the basic command control character. If 
in column one, it specifies a two character command or 
macro name follows 

The colon is the no-break control character. It 
functions exactly like the period, but will suppress 
breaks caused by various commands. 

Page number symbol. Any place 
appears, it will automatically 
current page number. 


the percent sign 
be replaced by the 


Special notes 

A. Any time input is being typed into the processor, typing a 
'control X' will delete that line and issue a "?" as a prompt. 

B. The processor automatically makes sure there are two spaces 

after ", " ! ", or "?". This does not apply to punctuation 

immediately followed by another character. 
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Using the T <=» >c -fc Processor 


I. BRINGING UP THE SYSTEM 

It is assumed the text processor is resident in memory and that 
any necessary adaptions have been made. The entry point to the 
program is hex 200. The system should respond with the copyright 
message and the prompt: 

DATE <MM:DD:VY>? 



If the date is not required by your program.* simply type a 
carriage return. If the date is required; it should be entered 
in the form shown. Spaces or nonalphanumeric characters may be 
used between entries. As an example; to enter June 20; 1977; 
type the following: 


6 20 77 


If an error is made during entry; simply type a 'control X' and a 
new question mark "?" prompt will be issued. At that time; 
re-enter the entire date. The 'control X' may be used any time 
the processor prompts for input. The next prompt issued is: 


• TYPE P FOR PRINTER. . . 



Typing a P will route all processor output to the printer device 
(using the user supplied printer 170 routines - see "Adaptions"). 
Any other character will cause the output to be sent to the 
terminal. If the printer was not selected; the next prompt will 
be: 

LINES PER SCREEN? 


Typing a carriage return will result in uninterupted output from 
the processor to the terminal. Typing a number will cause that 
number of lines to be output.. at which time processing will 
temporarily halt. To restart; type any character except a 
carriage return and the processing will continue. A carriage 
return will cause the processor to be exited. The final prompt 
is: 



PAGE LIMITS? 

and is used to specify a particular block of pages to be 
processed. Typing a carriage return will cause all pages to be 
processed and output. Typing two numbers separated by a space or 
graphic character will cause only the pages between those numbers 
(inclusive) to be output For example.* typing: 

10; 16 

will result in only pages numbered 10 through 16 to be output. 
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If just one number is entered/ the processor will start outputing 
at that page number and continue to the end of the file. It 
should be noted that the processor always starts numbering the 
first page as number one unless instructed otherwise. Rs the 
processor is working/ it may be stopped at any time by pressing 
the "BREAK" key on the terminal. This key must be held down at 
the end of line output. The processor will respond with: 

BREAK. 1 


output to the terminal. Rt this time processing may be continued 
by typing any character except an "S" which will cause the 
processor to be exited. 

II. GENERAL USE 


There are several things to keep in mind while preparing text for 
the text processor. Remember that all commands must begin in 
column one. It is usually most convenient to begin each sentence 
on a new line for easy future editing. Macros should be used as 
often as possible. The reason for this is to keep global changes 
as simple as possible/ e. g. change only one line in a macro as 
opposed to changing single commands scattered throughout the 
file. It is not necessary to understand how the macros provided 
in this manual work in order to use them. All that is necessary 
is to know how to use them which is thoroughly explained. Rs 
experience is gained with the processor/ you will be able to 
create your own special purpose macros for easy formatting. 


« 
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MRCRO LIBRRRV 


The following macro descriptions range from simple header and 
footer macros to a very complex footnote macro. It is not 
necessary to understand how the macros work.- just how to use 
them. Each macro includes a description of what it does and how 
it can be used. 

I. HERDERS RND FOOTERS 


These macros are used to define top and bottom margins and also 
specify the contents of these margins., such as page numbers, 
titles* etc. Almost all processing jobs will require some sort 
of header and footer. Usually the macro definitions are placed 
at the beginning of the file <they need to appear before they are 
called for execution). The "RT" command is used to set the trap 
location <the line at which the macro should automatically 
execute) of each of the macros. Headers are set to line 1 and 
footers to a specific distance from the bottom of the page. Once 
these macros have been defined and their trap locations set* they 
can be forgotten about since the processor will do all the rest 
of the work. The first macro is a simple header macro which 
provides two blank lines, a centered title* and two more blank 
lines at the top of each page. 


. DM HD 
: SP 2 

. TL "CENTERED TITLE" 
: SP 2 
. NS 
. OS 


. RT .1 HD 



fill of the header macros will contain a NS and OS command. NS 
will suppress any unnecessary spacing which may occur due to the 
unpredicted appearance of a SP command. For example* if the 
start of a new paragraph just happens to start at the top of a 
new page* there is no reason for the paragraph macro to space 
down two lines* since we are at the top of the page. NS will 
keep this from happening. The OS command instructs the processor 
to output any 'saved space' from the previous page. The next 
header is a little fancier. It does everything the previous one 
does except the titling is done a little d'ifferently. Here. if 
the current page number is even* the title is left hand 
•justified. If the page is odd- the title is right hand adjusted. 
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. DM HD 
:SP 2 

. IF E . TL 'EVEN TITLE'" 
. IF 0 . TL "'ODD TITLE' 

: SP 2 
. NS 
. OS 


. AT 1 HD 

Subtitles may be used by simply placing a second TL command which 
contains the subtitle. The last header example is for those 
using a printer which uses separate sheets of paper (as opposed 
to continuous fed). This macro will issue a message to the 
terminal which instructs the operator to insert a new sheet of 
paper/ before each page of text is processed. The paper should 
be set up such that the first line printed will be the top line 
of the paper. The operator will have to type a character on the 
terminal after each stop to restart the processor. Remember that 
typing an "S" will halt the processor. 

HD 

INSERT NEW SHEET 

2 '"Y;Vv : ’ 

"TITLE" 

2 


. DM 
. TM 
:ST 
: SP 
. TL 
: SP 
. NS 
.OS 


.AT 1 HD' 

Footer macros are similar to headers except they are set to 
execute at the bottom of a pagje. For example/ specifying 
AT -6 FO would cause the macro called FO to automatically execute 
at the 6th line from the bottom of the page. The first footer 
gives a five line bottom margin with the page number between 2 
dashes centered on the page/ 3 lines from the bottom. 


. DM FO 
: SP 2 
. TL 
: PG 


. AT -5 FO 

It is often desirable to have page numbers on every page except 
page number one. The following footer will do exactly that. 
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. DM FO 
: SP 2 

. IF 1 . TL "-X-" 
: PG 


. AT -5 FO 

There are several other types of header and footer macros which 
can be created. Some of these appear in the macros which follow. 

II. PRRRGRRPHS AND HEADINGS 

There are many forms of paragraphing. The TSC Text Processor 
does not restrict one to using one particular form. One type of 
papagpaph is to produce one blank line and start the first line 
of the paragraph indented five spaces. The following macro does 
just that: 

. DM PP 

. SP ‘ 

. SI 5 


To use the paragraph macros simply call it by name any time a new 
paragraph is desired <e. g. type ". PP" in column one). One 
little feature which may be added to the macro is a need lines 
command* NL. In the following example; NL 3 is used to tell the 
processor that we desire at least three lines be left on the page 
before a new paragraph is started. This will keep one or two 
lone lines from being placed at the bottom of the page. 

. DM PP 
. SP 
. NL 3 
. SI 5 

Many other types of paragraph macros may be created along the 
same lines as those presented. 

Another useful macro can be created for major heading creation. 
One type of major heading might have a centered title spaced two 
lines down from the last line of text. The macro to accomplish 
this may look as follows: 

. DM MH 
. SP 2 
. CE 


To use this macro; type ". MH" when the heading is desired, 
next line should contain the heading title. For example: 


The 
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IV. 


TWO COLUMN OUTPUT 


The TSC processor does not support backward line feeds so it is 
necessary to use some operator intervention in order to produce 
two column output. The following set of macros will produce two 
column output. each column being 31 characters wide. When the 
text of the first column reaches the bottom of the page. the 
string "REPOSITION PAPER" will be output to the terminal and a 
"STOP" command is executed. Rt this time the operator should 
reposition the paper to the top of the page and then restart the 
processor by typing any key but "S". 



. LN 
NR 
DM 
. IF 
: SP 
. RU 
. IF 
. IF 
: SP 
. IF 


31 
R 8 
HD 

#fl . PR 

2 

1 


! #+fi-l TL '"title"' 
#fl-l :SP 
2 

#fl-l . LM 34 


DM 

.SP 


. LM 
. IF 
. IF 
: PG 


FO 

2 

0 


#fl-l . TL 
#R-1 . NR fl 0 



J&S 


. DM PR 

. TM REPOSITION PAPER 
: ST 

. PN '/.-l 


. RT 1 HD 
.RT -5 FO 
. BR 


It should be noted that these macros also contain their own 
special set of header and footer macros which may be modified as 
desired. 
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Line of text. 

. MH 

Heading Title 

The last two macro examples are quite simple/ but show how even 
two or three lines of.commands may be replaced by a single macro 

call. This is quite useful if these operations are going to be 

repeated many times throughout a document. 

III. FOOTNOTES 

The following set of macros is all that is required to do very 
efficient and easy footnote handling. A description of how they 
actually work is contained in the introduction of this manual. 
To use these macros/ it is only necessary to include their 
descriptions at the beginning of your file. As soon after a 
footnote is referenced in the text/ call the macro BF (begin 

footnote) to begin the footnote. Immediately following this 

call/ type the contents of the footnote/ followed by a call to 
the macro EF (end footnote). The following serves as an example: 

Text here referencing a footnote*. 

. BF 

★Footnote contents typed here and 
.may be several lines long. v 

. EF 

It should be noted that the footnote macros contain their own 
header and footer macros which may be modified as desired. These 
macros should be the first lines of a file. 

. NR B 7 
. DM HD 

. gp g 

.IF X-l . TL 'FOOTNOTE TEST'" 

: SP 2 
. AU 1 
. NR X O 
. NR W 0-#B 
. IF #V . TR 
. NS . 

. DM FO 
. NR V 0 
. IF #X . FT 
. CH FO -#B 
: PG 

. DM NM 
. TL "-X-" 


continued 
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. DM BF 
. DR TX 
. EV 1 

. IF !#+X-l . SR 

. DM EF 
. BR 
. EV 0 
. DI 

. NR W -#V 
ru pn i4u 

.IF #N-#P-#W . CH FO #N+1 
. DM SR 


. BR 

DM TR 
. BF 
. NF 
FE 
. FI 

EF ; 

. DM FN 
\ DI FE 

1 DM FT 
. EV 1 
. NF 
. TX 

. RM TX 
. DI 
. FI 
. EV 0 

!RT 1 HD 
.RT -#B FO 
. RT -4 NM 
.CH FO 70 
.RT -#B FN 
. CH FO -#B 
. EV 1 
. RU 1 
. LN 55 
. EV 0 

Please remember -that it is not necessary to fully understand how 
these macros work as long as you know how to use them. 
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V. FORM LETTERS 

The last set of macros and examples deal with form letters. 

These macros are shown with some sample text. The RP (repeat) 

command is used so that the file is repeated over and over, until 

just a carriage return is typed in response to the "NAME?" 

prompt, at which time processing halts. The macro creates a name 
and address header at the top of each page. Following is "Dear 
(persons name)" and the text of the letter. 

, . JU N 

. SP 6 
. NF 

. DI NM 
" .GI NAME 
. BR 
. DI 

. IF !#G . EX 
. NM 

.GI STREET 

. GI CITV STATE & ZIP 
. SP 3 
.FI 
DEAR 
. NM 
SP 

SI 5 

THANK VOU FOR VOUR INTEREST IN THIS ORGANIZATION. 

WE ARE SURE THIS IS THE START OF A LONG PROFITABLE 
FRIENDSHIP. 

IF VOU HAVE ANV QUESTIONS, FEEL FREE TO CONTACT US. 

. SP 2 
. JU R 
THANK VOU 
. PG 

More intricate form letter macros could certainly be created. 
This one shows how the 'name' can be saved for later use in the 
body of the letter. 
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Sys-tem Rdap-tions 


I. PROCESSOR INITIALIZATION 

Before the processor is run, three pieces of information need to 
be supplied to the program. 

"A. FSTRAM <loc. $0097-0093): These two bytes should be 
set to contain the address of the first byte of source 
text in RAM. For example, if your text file begins in 
RAM at location $3000 then’ FSTRAM <$0097 & $0098> 
should be set to $3000. 

B. LSTRAM <loc. $0099-0093): These two bytes should be 

set to contain the address of the first empty byte past 
the source text file. For example, if your text file's- 
last character <a carriage return) is at location 
$3A50, then LSTRAM <$0099 & $009A) should be set to 

$3A50+1 or $3A51. 

C. JNKCNT <loc. $009D)' This byte should be set to 
contain the number of bytes following the carriage 
return in each line before good text resumes. The 
processor needs text lines in the following form: 

' text text text C. R. text text C. R. etc. 
where C. R. represents a carriage return <$D). If 
there are any non text characters after the carriage 
return, the proceesor must be instructed of these so it 
can ignore them. For example, the TSC Text Editing 
System saves text in memory with 3 line number bytes 
preceding each line <after each carriage return). In 
this case, JNKCNT <$009D) should be set to 3. 

II. INCH 

INCH is the routine called in MIKBUG for character input. If not 
using MIKBUG you will have to provide your own input routine. It 
must not destroy B or X and should return the ASCII character 
with parity removed in the A accumulator. This routine is called 
by a JMP instruction <7E> from location $0206 and is presently 
set to $E1AC. 

III. OUTCH 

OUTCH is the routine called to output a character to a terminal. 
It is presently referencing the output character routine in 
MIKBUG <$E1D1). If you are supplying your own, it must not 
destroy B or X and should output the ASCII character contained in 
the A accumulator. This routine is called by a JMP instruction 
from location $0203. 
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IV. MONITOR 

MONITOR is the exit point from the processor. It currently is a 
jMP to $E0D0 <MIKBUG>. To set your own address/ change the JMP 
instruction located at $0209. 

V. STOCK REFERENCES 

The stack pointer is initialized to $01FF at two different 
locations in the program. If you are mowing the stack location/ 
be sure to change both references. The stack is loaded at $0212 
and $0CC5. 


VI. PRINTER ROUTINES 

There are two printer routines referenced by the processor/ PRNIT 
<$15R4) for printer port initialization and PROUCH <$15C4> for 
output a character to the printer. These routines need to be 
supplied end are simply set up as RTS (39) in the processor. 32 
bytes have been reserved for each routine. The PRNIT should do 
any necessary port and/or printer initializing. PROUCH should 
output the contents of A to the printer keeping B and X 
preserved. These routines are called from $020C and $020F. 


VII. TEST BREAK ROUTINE 


The routine at location $1471 is used to check for the occurrence 
of the "BREAK” key during processing. This routine assumes a PIA 
is being used for I/O in a MIKBUG configuration. If an ACIA port 

is being used/ substitute the following code in for the TST8RK 
routine. The processor can now be halted by typing a '.cpjatrol ‘C 
during text processing. 


* 

* BREAK ROUTINE FOR ACIA 

* 


1471 





ORG 


$1471 


1471 

B6 

80 

04 

TSTBRK 

LDA 

A 

ACIA 

ACIA BASE ADDRESS 

1474 

44 




LSR 

A 


GET STATUS 

1475 

25 

01 



BCS 


TSTBR4 


1477 

39 



TSTBR2 

RTS 



NO CHARACTER 

1478 

B6 

80 

05 

TSTBR4 

LDA 

A 

RCIA+1 

GET CHARACTER^. o 

147B 

81 

03 

Ub 


CMP 

A 

#$03 

IS IT 'J CTHrnT 7 ? 

147D 

26 

F8 



BNE 


TSTBR2 


147F 

CE 

15 

92 


LDX 


#BRKSTR 

POINT TO STRING 

1482 

7E 

0C 

D8 


JMP 


ST0P1 

OUTPUT IT 

8004 




ACIA 

EQU 


$8004 

SET AS REQUIRED! 
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VIII. MACRO STORAGE SPACE 

The macro storage space is presently set to approximately 1. 5K 
and resides between $19F4 and S1FF2. if it is found that more 
space is required/ the end pointer to the space <LMACRO> is 
referenced at $02FE and may be changed as needed. 

IX DOUBLE CHARACTERS 

v 

Three commands exist in the processor which require special 
printer hardware These are double height <DH>.. double width 
<DW>/ and double both <DB> Some commercially available printers 
will print single lines of double size characters if a special 
control character is received prior to the line. The double 
height control character <$12) is referenced at location $0C08. 
The double width control character <$0E> is referenced at 
locations $0C13 and $0C1C. These may be changed as required. 

X. MAKING THE TSC TEXT EDITOR AND PROCESSOR CO-RESIDENT: 

Following is a description of the steps necessary to relocate the 
TSC TEXT EDITING SYSTEM/ allowing co-resident operation with the 
TSC TEXT PROCESSING SYSTEM. The TSC Relocator program is 
required. 

1) Load the RELOCATOR 

2) Move it to $3300 and set its stack pointer to $3FFF 
<location $3801 after relocation must be changed to $3F> 

3) Load the TSC TEXT EDITING SYSTEM 

4) Load the program called 'LPR' which has been included with 
this documentation. Type in all code generated by that 
program. 

5> Relocate the Editor-LPR. pair according to the instructions 
given below. <Begin execution of the RELOCATOR at $3800> 

6) Load the TSC TEXT PROCESSING SYSTEM 

?) Change the exit address of the processor <location SOBOA - ) 
to $32E6. 

8> Begin execution at $2O0O See the LPR program for 
instructions on use and on adapting to a system larger than 
16K. 

9> See next page for Relocator address information. 
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RELOCATING THE EDITOP-LPR PAIR: 

i/£\V 1 

BEGIN ADDRESS. 0200 

END ADDRESS: -1500" HJV&- 
MOVE TO: £000 

DATA BLOCKS? V ^o'l^ 

BEG ADDR: 0212_- q X 

END ADDR: 035tT 0 o ^i% "~ 

044C\ s jp SSW 
044D 
0458 

045E JAB? 

0464 %£E3T 

~ 0470 14E5" 

0476 1588" 

0482 1500'"' 

0946 

0955 

0982 

0988 

0A31 

0A47 

0BF2 

0C07 

0C77 

0C86 

0D7F 

0DCA 

0FCA 

0FD3 

10B4 

10CF 

1241 

125B 


ALTER RANGE? V 

BEGIN ADDRESS: 

01FF 

END ADDRESS 

isee iqq 

FIX FOB'S? V 

ADDRESS. 021B 

02CE 

021F 

02D2 • 

0228 

02D9 

022C 

02E4 

0235 

02ER 

023C 

02F4 

6241 

02F8 

0245 

02FF 

024E 

0305 

0252 

0300 

025B- 

0310 

0261 

0316 

0268 

031C 

026C 

0320 

0272 

0329 

027B 

032D- 

027F- 

0335 

0288 

0339 

028C 

033D 

0292 

0344 

0299 

0348 

029E 

0949 

02R5 

094F • 

02AF 

0953 

0284. 

1245 

02B8 

124C- 

02C2 

1252 

02C6- 

1259 
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LPR 


* TSC TEXT EDITOR-PROCESSOR CORESIDENT LINK <LPR) 

* 

* COPYRIGHT <C> 1977 BV 

* TECHNICAL SVSTEMS CONSULTANTS/ INC. 

* P. 0. BOX £574; W. LAFAVETTE/ IN 47906 

* (317) 742-7509 

* 

* THE PURPOSE OF THIS PROGRAM IS TO SETUP THE NECESSARV 

* POINTERS IN THE TSC TEXT PROCESSOR AND TO SAVE CERTAIM 

* POINTERS OF THE TSC EDITOR TO ALLOW THEM TO RUN CO- 

* RESIDENT. THE ONLV CHANGE REQUIRED IN THE PROCESSOR I 

* TO SET THE EXIT ADDRESS (SETUP AT $020A> TO $32E6/ 

* WHICH IS THE ADDRESS OF “'EDITOR' IN 'LPR'. WHEN IN 

* THE EDITOR AND READY TO PROCESS YOUR FILE/ TYPE 'LPR' 

* FOR 'LINK PROCESSOR'. WHEN THE PROCESSING OF THE FILE 

* IS COMPLETE/ CONTROL WILL RETURN TO THE EDITOR. USING 

* LPR DELETES THE LOG COMMAND FROM THE EDITOR. YOU MAY 

* STILL USE 'STOP' TO EXIT. THIS PROGRAM IS SETUP FOR R 

* 16K SYSTEM. IF YOU HAVE A LARGER SYSTEM/ CHANGE MEMEN 

* IN THE EDITOR <#0212 BEFORE RELOCATION; #2012 AFTER). 

* 


* CHANGES TO EDITOR 


0212 

0 


ORG 

$0212 



0212 

3F 

FF 

FDB 

$3FFF 

SET 

MEMORY END ^FFT 

028E 



ORG 

$028E 



028E 

4C 


FCC 

'LPR' 

PUT 

LPR IN COMMAND TABLE 

028F 

50 

52 





0291 

00 


FCB 

0 



0292 

14 

BD 

FDB 

LPR 



0358 



ORG 

$0358 



0358 

CE 

15 0C 

LDX 

#BEGPT2 

SETUP NEW BEGIN PTR 



* EXTERNAL 1 

EQUATES 

1491 


ORG 

$1491 —- 

0200 

PROCSS 

EQU 

$0200 % 

009D 

JNKCNT 

EQU 

$009D 

08A8 

TSTEMP 

EQU 

$08A8—> p EAA2 

005E 

20NE1 

EQU 

$005E 

0060 

20NE2 

EQU 

$0060 

006A 

NUMFLG 

EQU 

$006A 

008F 

IN2FLG 

EQU 

$00SF 

00BB 

BUFFER 

EQU 

$00BB 

0058 

SPCPT1 

EQU 

$0058 

0096 

HEDCNT 

EQU 

$0096 

0040 

TEMP 

EQU 

$0040 , 

0C62 

MAKSP5 

EQU 

$0062 —£> J ft Ql- 

0203 

RESTRT 

EQU 

$0203 




£ 
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* TEMPORARY STORAGE 


/1491 




ZONE1X 

RMB 


i. 


1493 




Z0NE2X 

RMB 


2 


1495 




NMFG2 

RMB 


£ 


] 1497 




TMPEND 

RMB 


37 


^ 14BC 




TMPBEG 

RMB 


1 




• 


* ENTRY 

POINT 

0 R6- 

UPON EXITING THE EDITOR 
^ looo 

14BD 

BD 

08 

A8 

LPR 

JSR 


TSTEMP 

IS FILE EMPTY? 

14C0 

86 

03 



LDA 

A 

#3 

SET LINE BYTE COUNT 

I 14C2 

97 

9D 



STA 

A 

JNKCNT 


14C4 

CE 

00 

BB 


LDX 


♦♦BUFFER 

SAVE EDITOR DATA 

14C7 

DF 

58 



STX 


SPCPT1 


14C9 

CE 

00 

96 


LDX 


ttHEDCNT 


14CC 

DF 

40 



STX 


TEMP 


14CE 

CE 

14 

BC 


LDX 


♦♦TMPBEG 


14D1 

BD 

0C 

62 


JSR 


MAKSP5 


14D4 

DE 

5E 



LDX 


20NE1 

SAVE ZONE! 

14D6 

FF 

14 

91 


STX 


ZONE1X 


14D9 

DE 

60 



LDX 


Z0NE2 

SAVE ZONES 

14DB 

FF 

14 

93 


STX 


Z0NF.2X 

! 

14DE 

DE 

6fl 



LDX 


NUMFLG 

SAVE NUMBER t- VERIFY 

14E0 

FF 

14 

95 


STX 


NMFG2 


14E3 

7E 

02 

00 


JMP 


PROCSS 

JUMP TO THE PROCESSOR 





* REENTRY POINT ON EXIT 

FPOM ASSEMBLER 

14E6 

4F 



EDITOR 

CLR 

A 


CLEAR FLAG 

14E7 

97 

8F 



STA 

A 

INZFLG 


14E9 

CE 

14 

BC 


LDX 


♦♦TMPBEG 

RESTORE EDITOR DATA 

14EC 

DF 

58 



STX 


SPCPT1 


14EE 

CE 

14 

97 


LDX 


♦♦TMPEND 

< 

. 14F1 

DF 

40 



STX 


TEMP 


14F3 

CE 

00 

BB 


LDX 


♦♦BUFFER 


14F6 

BD 

0C 

62 


JSR 


MAKSP5 


14F9 

FE 

14 

91 


LDX 


ZONE1X 

RESTORE 20NE1 

14FC 

DF 

5E 



STX 


20NE1 


1 14FE 

FE 

14 

93 


LDX 


Z0NE2X 

RESTORE ZONES 

1501 

DF 

60 


• 

STX 


ZONES 


1503 

FE 

14 

95 


LDX 


NMFG2 

RESTORE NUMBER & VERIFY 

1506 

DF 

6A 



STX 


NUMFLG 


1503 

7E 

02 

03 

RSTART 

JMP 


RESTRT 

JUMP INTO EDITOR 










150B 

0D 




FCB 


$0D 


150C 




BEGPT2 

EGU 


>ft 

START OF FILESPACE 


END 

NO ERRORCS) DETECTED 










V 


LPR 
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SYMBOL TRBLE: 


BECPT2 150C 
JNKCNT 009D 
PROCSS 0200 
TMPBEG 14BC 
Z0NE2 0060 


BUFFER 00BB 
LPR 14BD 
RESTRT 0203 
IMPEND 1497 
Z0NE2X 1493 


EDITOR 14E6 
MRKSP5 0C62 
RSTRRT 1508 
TSTEMP 08R8 


HEDCNT 0096 
NMFG2 1495 
SPCPT1 0058 
ZONE1 005E 


INZFLG 008F 
NUMFLG 006R 
TEMP 0040 
ZONE1X 1491 




-4 



OBJECT CODE: 

SI 05 0212^ 3F FF R8 

SI 09 028E 4C 58 52 00 14 BD fl? 

SI 06 0358 CE 15 0C RF 

SI 13 14BD BD 08 R8 86 03 97 9D CE 00 BB DF 58 CE 00 96 DF EE 

SI 13 14CD 40 CE 14 BC BD 0C 62 DE 5E FF 14 91 DE 60 FF 14 D1 

SI 13 14DD 93 DE 6R FF 14 95 7E 02 00 4F 97 8F CE 14 BC DF 06 

SI 13 14ED 58 CE 14 97 DF 40 CE 00 BB BD 0C 62 FE 14 91 DF C5 

SI 12 14FD 5E FE 14 93 DF 60 FE 14 95 DF 6R 7E 02 03 0D lfl 

S9 













TSC TEXT PROCESSOR USER'S MANUAL 

VERSION 2. 3 




Source Listing 

I 




I 















3 - 
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+• 

* 

* TSC 6800 TEXT PROCESSING SYSTEM 

* 


* 

* COPVRIGHT 1977 BV 


* 

* TECHNICAL SYSTEMS CONSULTANTS, INC. 

* BOX 2574 

* WEST LAFAYETTE, IN 47906 

* 


0040 


ORG $0040 


* TEMPORARY STORAGE 

* NUMBER REGISTERS 


0040 

NMREGS 

RMB 

2 

0042 

COLCNT 

RMB 

1 

0043 

DAY 

RMB 

1 

0044 


RMB 

2 

0046 

GCNT 

RMB 

1 

0047 


RMB 

1 

0048 

IND 

RMB 

1 

0049 


RMB 

2 

004B 

LLN 

RMB 

1 

004C 

MNTH 

RMB 

1 

0040 

LINCNT 

RMB 

1 

004E 

LFM 

RMB 

1 

004F 

PGL 

RMB 

1 

0050 


RMB 

5 

0055 

LDIV 

RMB 

1 

0056 


RMB 

2 

0058 

YEAR 

RMB 

1 

0059 


RMB 

1 


* SINGLE STORAGE 

005A 

GDNUM 

RMB 

1 

005B 

ADD 

RMB 

1 

005C 

SUB 

RMB 

1 

005D 

BNUM 

RMB 

1 

005E 

NPGN 

RMB 

1 

005F 

INC 

RMB 

1 


* MACRO 

SAVE 

BLOCK 

0060 

NUMPNT 

RMB 

2 

0062 

EXCHR 

RMB 

1 

0063 

LSTNUM 

RMB 

2 


A-B 

C 

D 

E-F 

G 

H 

1 

J-K 

L 

M 

N 

0 

P 

Q-U 

V 

W-X 

Y 

2 








Jk.kVk 




,+**£. Jhfarrtfi. 


Utfu 


i. 
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0063 

CMFLG 

RMB 

• * 

0066 

MBFLG 

RMB 

«t 

006? 

MBFPNT 

RMB 

a 

0069 

NOCR 

RMB 

•i 

006A 

DONE 

RMB 


006B 

FLBF 

RMB 


006C 

ATFLG 

RMB 

• • 


* MORE 

SINGLE 

STORAGE 

006D 

LEFT 

RMB 

• • 

006E 

TFILF 

RMB 

•1 

• • 

006F 

NOFL 

RMB 


0070 

INNUM 

RMB 

Am 

0071 

NEC 

RMB 

A 

Am 

0072 

SIGN 

RMB 

•* 

0073 

NSP 

RMB 

3. 

0074 

PGN 

RMB 

a 

a» 

0075 

PflSCHR 

RMB 

r' 

•■m 

0076 

SPSPF 

RMB 

1 

0077 

DOCflP 

RMB , 


0078 

DOOM 

RMB 

A 

0079 

NOOUT 

RMB 

A 

••• 

007R 

TOUTL 

RMB 

r 

Am 

007B 

PTFL 

RMB 

A 

007C 

SIN 

RMB 

A 

m*m 

007D 

MINDIS 

RMB 

# 

007E 

EV 

RMB 


007F 

NOEXP 

RMB 

r 

»• 

0080 

NXTTAB 

RMB 

a 

0082 

TflBFLG 

RMB 

A 

0083 

C0LCN2 

RMB 

* 

0084 

IND2 

RMB 


0085 

NXTTRP 

RMB 

2 

0087 

SVDSPC 

RMB 

A 

@088 

FINMflC 

RMB 

Ay 

0089 

NEGT 

RMB 


008A 

IFFLG 

RMB 


008B 

MflCCNT 

RMB 

-<■ 

008C 

PASFLG 

RMB 


008D 

NONUMS 

RMB 

•! 

• * 

008E 

DWFLG 

RMB 

X 

008F 

DFMFLG 

RMB 

• • 

0090 

SPIFLG 

RMB 


0091 

DIVFLG 

RMB 

.1 

0092 

DIVFL2 

RMB 

4 

• * 

0093 

PRNTR 

RMB 

. 1 

■ L 

0094 

TLPP 

RMB 

’ fc 

0095 

LOWPG 

RMB 

:l 

0096 

HIPG 

RMB 

l 

009? 

FSTRflM 

RMB 

a 

0099 

LSTRflM 

RMB 

a 

009B 

NXTRAM 

RMB 

a 


FILE POINTERS 


@ 

€ 
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009D 

JNKCNT 

RMB 

1 JUNK COUNT 

009E 

SBFLG 

RMB 

1 

009F 

LLN2 

RMB 

1 

00R0 

MRCNRM 

RMB 

2 

00R2 

MRCTMP 

RMB 

2 

00R4 

LSTRVL 

RMB 

2 

00R6 

FSTRVL 

RMB 

2 

00R8 

STPOUT 

RMB 

2 

00RR 

TCPNT 

RMB 

2 

00RC 

NXTMRC 

RMB 

2 

00RE 

NXTOUT 

RMB 

2 

00B0 

XMRC 

RMB 

2 

00B2 

TSIN 

RMB 

1 

00B3 

TIND 

RMB 

1 

00B4 

TLLN 

RMB 

1 

00B5 

SUPL 

RMB 

1 

00B6 

SWRDF 

RMB 

1 

00B? 

CRP 

RMB 

1 

00B8 

SCRP 

RMB 

1 

00B9 

TPOS 

RMB 

1 

00BR 

DELIM 

RMB 

1 

00BB 

TCNT 

RMB 

1 

00BC 

MONT 

RMB 

1 

00BD 

TTLPNT 

RMB 

2 

00BF 

ENDLIN 

RMB 

1 

00C0 

TAB 

RMB 

1 

00C1 

TFILL 

RMB 

1 


* ENVIRONMENT 

PARAMETERS 

0002 

RUTO 

RMB 

2 

0004 

ROM 

RMB 

2 

0006 

WIDTH 

RMB 

2 

0008 

FILFLG 

RMB 

2 

00CR 

PFLG 

RMB 

2 

00CC 

PCHRR 

RMB 

2 

00CE 

CNJ 

RMB 

2 

00D0 

RTJ 

RMB 

2 

00D2 

MSC 

RMB 

2 

00D4 

CNTFLG 

RMB 

2 

00D6 

JUST 

RMB 

2 

00D8 

TLN 

RMB 

2 

00DR 

BUFPNT 

RMB 

4 

00DE 

BUFEND 

RMB 

4 

00E2 

EBFEND 

RMB 

4 

00E6 

CMNPNT 

RMB 

2 

00E8 

SPCPT1 

RMB 

2 

00ER 

SPCPT2 

RMB 

2 

00EC 

TEMP 

RMB 

2 

00EE 

TEMPS 

RMB 

St 

00F0 

TEMP5 

RMB 

2 i 

00F2 

TEMP6 

RME 

2 






A' 


IV' 
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00F4 

RETREG 

RMB 

2 

00F6 

INDEX 

RMB 

2 

00F8 

XTEMP 

RMB 

2 

00FA 

MACEND 

RMB 

2 

00FC 

CRF 

RMB 

1 

0110 

0 

ORG 

*0110 

0110 

TABS 

RMB 

20 

0124 

TABEND 

RMB 

1 

0125 

NUM 

RMB 

12 

0200 


ORG 

*0200 


* PROGRAM ENTRV POINT 

♦ 


'PftoCV 


0200 

UJ 

02 

12 

START 

JMP 


INTRO 





* JUMP 

TABLE 


0203 

7E 

El 

D1 

OUTCH 

JMP 


*E1D1 

0206 

7E 

El 

AC 

INCH 

JMP 


*E1AC 

0209 

7E 

E0 

D0 

MON 

JMP 


*E0D0 

020C 

7E 

15-A4- 

PINIT 

JMP 


PRNIT 

020F 

7E 4.S-G4 

POUCH 

JMP 


PROUCH 

01FF 




STACK 

EQU 


*01FF 





* MAIN 

PROGRAM 

STARTS HE 

0212 

8E 

01 

FF 

INTRO 

LDS 


#STACK 

0215 

DE 

97 



LDX 


FSTRAM 

0217 

DF 

9B 



STX 


NXTRAM 

0219 

BD 

02 

A8 

INTRO0 

JSR 


CLRSPC 

021C 

97 

95 



STA 

A 

LOWPG 

021E 

97 

93 



STA 

A 

PRNTR 

0220 

97 

94 



STA 

A 

TLPP 

0222 

4A 




DEC 

A 


0223 

97 

96 


Ft 

STA 

A 

HIPG 

0225 

CE 

14 


LDX 


#CPRSTR 

0228 

BD 

14 

90 


JSR 


PSTRNG 

022B 

08— 



INX 



022C 

BD-4.4—90- 


JSR 


PSTRNG 

022F 

BD 

14 

85 


JSR 


CRLF 

0232 

CE 

15 

1A 


LDX 


ftDATSTR 

0235 

BD 

14 

90 


JSR 


PSTRNG 

0238 

BD 

14 

44 


JSR 


GIBUF 

023B 

7C 

00 

65 


INC 


CMFLG 

023E 

BD 

12 

1A 


JSR 


CHKNUM 

0241 

24 

16 



BCC 


INTR03 

0243 

96 

70 



LDA 

A 

INNUM 

0245 

97 

4C 



STA 

A 

MNTH 

0247 

BD 

12 

1A 


JSR 


CHKNUM 

024A 

24 

0D 



BCC 


INTR03 


*£oG\ 

c,Z> 

C I Ch 


PDC3 


*** SETUP STACK +++ 
POINT TO FIRST OF FILE 
SAVE IT 

GO CLEAR SPACE 
SET PAGE LIMITS 


OUTPUT MESSAGE-**! 


OUTPUT CR AND 
PROMPT FOR DATE 

GET DATE 

CHECK IF VALID 


GET MONTH & SAVE 
CHECK FOR DAV 
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024C 

96 

70 



I.Dfl 

FI 

::nnum 

024E 

97 

43 



ST fl 

FI 

DRV 

0250 

BD 

12 

1A 


•/SIC 


r.HKNUII 

0253 

24 

04 



ucr: 


intros 

0253 

96 

70 



I.DPl 

FI 

::nnuii 

0257 

97 

58 



STfl 

FI 

"EAR 

0259 

CE 

15 

2C 

INTR03 

I.DX 


■ tPRQU 

025C 

BD 

14 

90 


/SR 


1‘STRNC; 

025F 

BD 

02 

06 


jsr: 


INCH 

0262 

81 

50 



CMP 

FI 

<>'P 

0264 

26 

04 



ONE 


::ntro4 

0266 

97 

93 



ST A 

FI 

I'RNTR 

0268 

20 

15 



BRfl 


INTROS 

026R 

CE 

15 

66 

INTR04 

ld>: 


4LPPSTR 

026D 

BD 

14 

90 


tsf; 


I’STRNU 

0270 

BD 

14 

44 


JSR 


GIBUF 

0273 

7C 

00 

65 


INC 


OMFLG 

0276 

BD 

12 

1A 


.jsr 


OHKNUM 

0279 

24 

04 



OCC 


INTROS 

027B 

96 

70 



LDFI 

A 

innum 

027D 

97 

94 



STfl 

A 

;lpp 

027F 

CE 

15 

4A 

INTR05 

I.DX 


4PGSTR 

0282 

BD 

14 

90 


rsR 


!> STRNG 

0285 

BD 

.14 

44 


rs« 


• IIBUF 

0288 

7C 

00 

65 


INC 


OMFLG 

028B 

BD 

12 

1A 


JSR 


SHKNUtl 

028E 

24 

0D 



see 


INTROS 

0290 

96 

70 



LDA 

A 

CNNUM 

0292 

97 

93 



ST<I 

A 

;.OWPG 

0294 

BD 

12 

1A 


JSR 


JHKNUM 

0297 

24 

04 



see 


INTROS 

0299 

96 

70 



I.DM 

A 

INNUM 

029B 

97 

96 



ST 4 

A 

IIPG 

029D 

BD 

14 

85 

INTR06 

jsr 


:rl p 

02A0 

4F 




:ui 

A 


02R1 

CE 

00 

5A 


LD.-i 


IGDNUII 

02R4 

3D 

06 



ASA 


OLRSPR 

02R6 

20 

13 



i IRA 


INIT 





* CLEAR 

•EMPORARV SPACE 

02R8 

4F 



CLRSPC 

CLF! 

A 


02R9 

CE 

00 

40 


i_d. : 


ANMREAS 

02AC 

A? 

00 


CLRSP2 

ST il 

A 

11, X 

02AE 

08 




INN 



02RF 

30 

00 

93 


CPX 


APRNTI! 

02B2 

26 

F8 



8NE 


OLRSPri 

02B4 

CE 

00 

9E 


LDX 


ASBFLA 

02B7 

A7 

00 


CLRSP4 

ST A 

FI 

11, X 

02B9 

08 




INN 



02BA 

3C 

00 

DA 


CPX 


ABUFPIIT 

02BD 

26 

FA 



une 


0LRSP4 

02BF 

39 




RTS 




GET a SAVE 
CHECK FOR VEflR 
CRT ,i SAVE 
PROMPT FOR PRINTER 
GE** RESPONSE 

SE T PRINTER FLAG 
LINES PER SCREEN? 
■JET RESPONSE 
CHECK IF NUMBER 
■JET AND SAVE 
°RMPT FOR PAGES 
■JET RESPONSE 
CHECK NUMBER 
JET AND SAv^E 

;hec< high page 

JET IT 
) JT :r t L.- 
:._EAR SPACE 
JO INITIALIZE 

% 

:5E" POINTER 
CLEAR SPACE 
DUMP POINTER 
FINISHED? 

DO SECOND BLOCK 


RETURN 
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* INITIALIZATION AND SETUP 


02C0 

CE 

01 

10 

INIT 

LDX 


#TABS 

SET POINTER 

02C3 

4F 




CLR 

A 



02C4 

A7 

00 


INIT25 

STA 

A 

0; X 

CLEAR TABS 

02C6 

08 




INX 




02C? 

8C 

01 

25 


CPX 


#NUM 


02CA 

26 

F8 



BNE 


INIT25 

FINISHED? 

02CC 

4C 




INC 

A 



02CD 

97 

D6 



STA 

A 

JUST 

SET INITIAL PARAMS. 

02CF 

97 

D7 



STA 

A 

JUST+1 


02D1 

97 

BF 



STA 

A 

ENDLIN 

MARK END LINE 

02D3 

97 

FC 



STA 

A 

CRF 


02D5 

97 

C8 



STA 

A 

FILFLG 

SET FOR FILL 

02D7 

97 

C9 



STA 

A 

FILFLG+1 


02D9 

97 

4D 



STA 

A 

LINCNT 

INIT LINE COUNT 

02DB 

97 

42 



STA 

A 

COLCNT 


02DD 

97 

83 



STA 

A 

C0LCN2 

SET COLUMN CNT 

02DF 

97 

74 



STA 

A 

PGN 

SET PAGE 

02E1 

86 

41 



LDA 

A 

#65 


02E3 

97 

C6 



STA 

A 

WIDTH 

SET PAGE WIDTH 

02E5 

97 

C7 



STA 

A 

WIDTH+1 


02E7 

97 

4B 



STA 

A 

LLN 

AND LINE LENGTH 

02E9 

97 

9F 



STA 

A 

LLN2 


02EB 

97 

D8 



STA 

A 

TLN 

SET TITLE LENGTH 

02ED 

97 

D9 



STA 

A 

TLN+1 


02EF 

4C 




INC 

A 



02F0 

97 

4F 



STA 

A 

PGL 

SET PAGE LENGTH 

02F2 

CE 

19 

F4 


LDX 


#MACROS 


02F5 

DF 

AC 



1 STX 


NXTMAC 

INIT MACRO SPACE 

02F7 

DF 

A6 



STX 


FSTAVL 


02F9 

86 

FF 



LDA 

A 

#$FF 


02FB 

A7 

00 


INIT3 

STA 

A 

0j X 


02FD 

08 




INX 




02FE 

8C 

IF 

F2 


CPX 


#LMACRO 

FINISHED? 

0301 

26 

F3 



BNE 


INIT3 


0303 

DF 

A4 



STX 


LSTAVL 


0305 

09 




DEX 




0306 

6F 

00 



CLR 


0, X 

SET END OF MACROS 

0308 

6F 

01 



CLR 


1, X 


030A 

6F 

02 



CLR 


2, X 


030C 

86 

0D 



LDA 

A 

#$D 

FIX BUFFER 

030E 

B7 

18 

0A 


STA 

A 

CMNDBF 


0311 

86 

A0 



LDA 

A 

#$A0 

SET FILL CHAR. 

0313 

97 

Cl 



STA 

A 

TFILL 


0315 

CE 

17 

D8 


LDX 


#TRAPS 


0318 

86 

FF 



LDA 

A 

#*FF 

INIT TRAPS 

031A 

A7 

00 


INIT4 

STA 

A 

0j X 


031C 

08 




INX 



• 

031D 

8C 

18 

08 


CPX 


#TRPEND 

FINISHED? 

0320 

26 

F8 



BNE 


INIT 4 


0322 

BD 

02 

0C 


JSR 


PINIT 

INIT PRINTER 

0325 

CE 

15 

E4 


LDX 


#LINBUF 
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0328 

DF 

DR 



STX 


BUFPNT 

SET POINTER 

032A 

DF 

DC 



STX 


3UFPNT+2 


0320 

BD 

06 

46 


JSR 


FIXBFE 

FIX BUFFER END 

032F 

DE 

DE 



LDX 


BUFEND 


0331 

DF 

E0 



STX 


BUFEND+2 


0333 

CE 

16 

7F 


LDX 


#EXTBUF 


0336 

DF 

E4 



STX 


EBFEND+2 


0338 

CE 

19 

72 


LDX 


#MflCTBL 

CLEAR MACRO TABLE 

0338 

DF 

Ffl 



STX 


MflCEND 






* MRIN 

PROCESS 

OR LOOP, 

. 

033D 

96 

74 


PROC 

LDR 

fl 

PGN 

CHECK PAGE NUMBER 

033F 

91 

95 



CMP 

fl 

LOWPG 

AGAINST LOW PAGE 

0341 

24 

06 



BHS 


PR0C3 


0343 

06 

0F 


PR0C2 

LDR 

B 

#$F 


0345 

D7 

79 



STR 

B 

NOOUT 

SET NO OUTPUT FLRG 

0347 

20 

0R 



BRR 


PUNTST 


0349 

91 

96 


PR0C3 

CMP 

R 

HIPG 

AGAINST HIGH PAGE 

034B 

23 

03 



BLS 


PR0C4 


034D 

7E 

09 

53 


JMP 


FINIS4 

IF PAST* FINISH 

0350 

7F 

00 

79 

PR0C4 

CLR 


NOOUT 






* TEST 

FOR PUNCTUATION 


0353 

96 ■ 

OR 


PUNTST 

LDR 

fl 

PFLG 

TEST FLAG 

0355 

81 

03 



CMP 

R 

#3 


0357 

26 

07 



SNE 


PUNTS3 


0359 

96 

CO 



LDR 

fl 

PCHAR 

GET SPARE CHAR. 

035B 

7F 

00 

OR 

PUNTS2 

CLR 


PFLG 

CLEAR PUNCT. FLAG 

035E 

20 

37 



8RR 


JSTFV 


0360 

BD 

06 

80 

PUNTS3 

JSR 


GETCHR 

GET NEXT CHAR. 

0363 

D6 

6R 



LDR 

B 

DONE 

FINISHED? 

0365 

27 

03 



9EQ 


PUNT35 


0367 

7E 

09 

51 


JMP 


FINISH 


036fl 

D6 

08 


PUNT35 

LDR 

B 

FILFLG 

FILL ON? 

0360 

27 

29 



BEQ 


JSTFV 


036E 

D6 

OR 



LDR 

B 

PFLG 

TEST PUNCT. FLAG 

0370 

Cl 

01 



CMP 

B 

#1 


0372 

22 

19 



BHI 


PUNTS7 


0374 

27 

11 



BEQ 


PUNTS6 


0376 

81 

2E 



CMP 

R 


IS CHAR A '. '? 

0378 

27 

08 



BEQ 


PUNTS4 


037A 

81 

21 



CMP 

R 

*' ! 

IS IT '•'? 

0370 

27 

04 



BEQ 


PUNTS4 


037E 

81 

3F 



CMP 

fl 

#'? 

IS IT '?'? 

0380 

26 

03 



BNE 


PUNTS5 


0382 

70 

00 

OR 

PUNTS4 

INC 


PFLG 

SET PUNCT. FLAG 

0385 

20 

10 


PUNTS5 

BRR 


JSTFV 

IS CHAR SPACE? 

0387 

81 

20 


PUNTS6 

CMP 

fl 

#$20 

0389 

27 

F7 



BEQ 


PUNTS4 

! 

038B 

20 

CE 



BRR 


PUNTS2 


038D 

81 

20 


PUNTS7 

CMP 

fl 

#$20 

CHECK FOR SPACE 

038F 

27 

OR 



BEQ 


PUNTS2 
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0391 

97 

CC 



STR 

fl 

PCHRR 

SAVE SPARE CHAR. 

0393 

86 

20 



LDR 

fl 

#$20 

SET FOR SPACE 

0395 

20 

EB 



BRR 


PUNTS4 






* JUSTIFICATION LOOP 


0397 

CE 

16 

7F 

JSTFV 

LDX 


#EXTBUF 

FIX EXTRA POINTERS 

03RR 

DF 

EE 



STX 


TEMPS 


03?C 

DF 

E2 



STX 


EBFEND 


039E 

DE 

DR 



LDX 


BUFPNT 

GET BUFFER POINTER 

03R0 

81 

0D 



CMP 

fl 

#$D 

IS CHAR. R CR? 

03A2 

26 

14 



BNE 


JSTFV3 


03R4 

D6 

08 



LDR 

B 

FILFLG 

FILL MODE? 

03R6 

26 

05 



BNE 


JSTFV2 


03R8 

DF 

R8 


JSTFV1 

STX 


STPOUT 

MARK LAST BUF. POS. 

03RR 

7E 

05 

0B 


JMP 


OUTLIN 

OUTPUT LINE 

03AD 

86 

20 


JSTFV2 

LDR 

fl 

#$20 

GET fl SPACE 

03RF 

R7 

00 


JSTF25 

STR 

R 

Qj X 

SAVE IT 

03B1 

08 




INX 



BUMP POINTER 

03B2 

90 

DE 



CPX 


BUFEND 

END OF BUFFER? 

03B4 

26 

F9 



BNE 


JSTF25 


03B6 

20 

IE 



BRR 


JSTFV6 


03B8 

R7 

00 


JSTFV3 

STR 

fl 

0, X 

SAVE CHARACTER 

03BR 

70 

00 

42 


INC 


COLCNT 

BUMP COLUMN COUNT 

03BD 

08 




INX 



BUMP POINTER 

03BE 

90 

DE 



CPX 


BUFEND 

END? 

03C0 

26 

06 



BNE 


JSTFS'4 


03C2 

D6 

08 



LDR 

B 

FILFLG 

FILL MODE? 

03C4 

27 

02 



BEG! 


JSTFV4 


03C6 

20 

0E 



BRR 


JSTFV6 


0308 

80 

16 

7F 

JSTFV4 

CPX 


#EXTBUF 

BUFFER OVERFLOW? 

03CB 

26 

04 



BNE 


JSTFV5 


03CD 

86 

0D 



LDR 

fl 

#$D 

STUFF R C. R. 

03CF 

20 

D7 



BRR 


JSTFV1 


03D1 

DF 

DR 


JSTFV5 

STX 


BUFPNT 

SAVE BUF POINTER 

03D3 

7E 

03 

3D 

JSTF55 

JMP 


PROC 

REPEAT LOOP 

03D6 

D6 

OR 


JSTFV6 

LDR 

B 

PFLG 

CHECK FLAG 

03D8 

Cl 

03 



CMP 

B 

#3 


03DR 

26 

04 



BNE 


JSTF63 


03DC 

96 

CC 



LDR 

R 

PCHRR 

GET CHARACTER 

03DE 

20 

0B 



BRR 


JSTF65 


03E0 

81 

20 


JSTF63 

CMP 

fl 

#$20 

IS CHAR = SPACE? 

03E2 

27 

4E 



BEQ 


ADJSPC 


03E4 

BD 

06 

80 


JSR 


GETCHR 

GET NEXT CHARACTER 

03E7 

81 

20 



CMP 

R 

#$20 

IS IT SPACE? 

03E9 

27 

47 



BEQ 


RDJSPC 


03EB 

36 



JSTF65 

PSH 

R 


SAVE CHRR. 

03EC 

86 

20 



LDR 

fl 

#$20 


03EE 

DE 

DE 



LDX 


BUFEND 

GET TO END 

03F0 

09 



JSTFV7 

DEX 




03F1 

80 

15 

E3 


CPX 


#LINBUF-1 

LOOK FOR SPACES 

03F4 

27 

1C 



BEQ 


JSTFV9 


03F6 

fll 

00 



CMP 

fl 

0, X 


03F8 

26 

F6 



BNE 


JSTFV7 



i 

€ 
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03Ffl 

08 



JSTFV8 

INX 



BUMP POINTER 

03FB 

9C 

DE 



CPX 


BUFEND 


03FD 

2? 

13 



BEQ 


JSTFV9 


03FF 

A6 

00 



LOR 

fl 

0, X 

PICK UP CHARACTER 

0401 

OF 

EC 



STX 


TEMP 

SAVE X 

0403 

DE 

EE 



LDX 


TEMP2 


0405 

R7 

00 



STR 

fl 

0, X 

MOVE THE CHAR. 

040? 

08 




INX 




0403 

OF 

EE 


. * 

STX 


TEMP2 


040A 

OE 

EC 



LOX 


TEMP 

RESTORE X 

040C 

86 

20 



LDR 

R 

#*20 

SET WITH SPACE 

040E 

R? 

00 



STR 

R 

0, X 

SAVE IT 

0410 

20 

E8 



BRR 


JSTFV8 

REPEAT 

0412 

32 



JSTFV9 

PUL 

R 


RESTORE CHARACTER 

0413 

7F 

00 

82 


CLR 


TRBFLG 

CLEAR TABS 

0416 

CE 

01 

24 


LDX 


#TABEND 

POINT TO TABS 

0419 

OF 

80 



STX 


NXTTRB 

SET NEXT TAB 

041B 

OE 

EE 



LDX 


TEMP2 

RESTORE X 

041D 

R7 

00 


JSTF95 

STR 

fl 

0, X 

SAVE LAST CHAR. 

041F 

08 




INX 



BUMP POINTER 

0420 

DF 

E2 



STX 


EBFENO 

SET END 

0422 

81 

20 



CMP 

R 

#*26 

WAS CHAR fl SPACE? 

0424 

27 

0C 



BEQ 


ADJSPC 


0426 

8C 

16 

RC 


CPX 


4LINBU2 

BUFFER OVERFLOW? 

0429 

27 

0? 



BEQ 


ROJSPC 


0428 

BO 

06 

8C 


JSR 


GETC.HR 

GET NEXT CHAR. 

042E 

OE 

E2 



LDX 


EBFENO 

GET POINTER 

0430 

20 

EB 



BRR 


JSTFS5 






* ADJUST BUFFER FOR SPACES 

0432 

5F 



ROJSPC 

CLR 

B 


CLEAR COUNT 

0433 

CE 

15 

E4 


LDX 


#LINBUF 

POINT TO BUF BEGIN 

0436 

OF 

E8 



STX 


SPCPT1 


0438 

R6 

00 


RDJSP2 

LOR 

fl 

0, X 

LOOK FOR SPACES 

043A 

81 

20 



CMP 

fl 

#*20 


043C 

26 

09 



BNE 


RDJS35 


043E 

5C 




INC 

B 


INC THE COUNTER 

043F 

08 




INX 



BUMP POINTER 

0440 

9C 

OE 



CPX 


BUFEND 


0442 

26 

F4 



BNE 


ADJSP2 


0444 

?E 

05 

08 

R0JSP3 

JMP 


OUTLIN 

OUTPUT LINE 

0447 

OF 

ER 


R0JS35 

STX 


SPCPT2 

SET END 

0449 

BO 

05 

B7 


JSR 


DELCHR 

DELETE INIT. SPACES 

044C 

CE 

15 

E4 

* 

LOX 


#LINBUF 

POINT TO BEGIN 

044F 

86 

20 



LOR 

fl 

#*20 

CHECK MORE SPACES 

0451 

R1 

00 


R0JSP4 

CMP 

R 

0, X 


0453 

27 

07 



BEQ 


RDJSP5 


0455 

08 




INX 



BUMP TIL FIND 

0456 

9C 

DE 



CPX 


BUFEND 

END OF. BUFFER? 

0458 

27 

10 



BEQ 


R0JSP6 


045A 

20 

F5 



BRR 


ADJSP4 

REPEAT 

045C 

08 



R0JSP5 

INX 



BUMP POINTER 

0450 

9C 

OE 



CPX 


BUFEND 

FINISHED? 
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045F 

26 

05 


BNE 


RDJS55 


0461 

70 

00 B6 


INC 


SWRDF 

SET SINGLE WORD 

0464 

20 

04 


BR8 


8DJSP6 


0466 

81 

00 

8DJS55 

CMP 

8 

0, X 

CHECK NEXT CHAR. 

0468 

27 

F2 


BEQ 


8DJSP5 


0468 

D6 

D4 

8DJSP6 

LDR 

B 

CNTFLG 

CENTERING? 

046C 

27 

03 


BEQ 


RDJSP7 


046E 

7E 

06 19 


JMP 


CNTRIT 

GO CENTER LINE 

0471 

D6 

D6 

8DJSP7 

LD8 

B 

JUST 

JUSTIFICATION? 

0473 

27 

CF 


BEQ 


RDJSP3 


0473 

D6 

D0 


LDR 

B 

RTJ 

RIGHT HAND? 

0477 

27 

03 


BEQ 


RDJSP8 


0479 

7E 

05 87 


JMP 


RIGHTJ 

GO DO RIGHT 

047C 

D6 

CE 

8DJSP8 

LDR 

B 

CNJ 

CENTER JUST. ? 

047E 

27 

03 


BEQ 


8DJSP9 


0480 

7E 

05 B2 


JMP 


CENTJ 

GO CENTER 

0483 

D6 

B6 

RDJSP9 

LDR 

B 

SWRDF 

CHECK SINGLE 

0485 

26 

BD 


BNE 


RDJSP3 


0487 

D6 

6B 


LDR 

B 

FLBF 

FLUSHING BUFFER? 

0489 

26 

B9 


BNE 


RDJSP3 


048B 

D6 

6D 


LDR 

B 

LEFT 

WHICH SIDE 

048D 

27 

38 


BEQ 


RINS 

GO FROM RIGHT 




* INSERT SP8CES FROM LEFT 

048F 

CE 

15 E4 

LINS 

LDX 


#LINBUF 

SET POINTER 

0492 

DF 

EC 


STX 


TEMP . 

SAVE IT 

0494 

DE 

DE ' 

LINS2 

LDX 


BUFEND 

POINT TO END 

0496 

09 



DEX 



DEC THE POINTER 

0497 

86 

00 


LDR 

8 

0/ X 

GET CHARACTER 

0499 

81 

20 


CMP 

8 

#$20 

IS IT 8 SPACE? 

0498 

26 

87 


BNE 


RDJSP3 


049D 

DE 

EC 


LDX 


TEMP 

RESTORE POINTER 

049F 

86 

00 

LINS3 

LDR 

8 

0, X 

GET CHAR 

04R1 

81 

28 


CMP 

8 

#$20 

IS IT SPACE? 

0483 

27 

07 


BEQ 


LINS4 


0485 

08 



INX 



BUMP POINTER 

0486 

9C 

DE 


CPX 


BUFEND 

END OF BUFFER 

0488 

27 

E5 


BEQ 


LINS 


0488 

20 

F3 


BR8 


LINS3 

REPEAT 

048C 

C6 

01 

LINS4 

LDR 

B 

#1 

SET COUNT = 1 

048E 

BD 

05 DD 


JSR 


INSSPC 

GO INSERT SPACE 

04B1 

D6 

CE 


LDR 

B 

CNJ 

CENTER JUST? 

04B3 

27 

01 


BEQ 


LINS5 


04B5 

39 



RTS 



RETURN 

04B6 

DE 

EC 

LINS5 

LDX 


TEMP 

RESTORE POINTER 

04B8 

86 

00 

LINS6 

LDR 

8 

0, X 

GET CHARACTER 

04BR 

81 

20 


CMP 

8 

#$20 

IS IT SPACE? 

04BC 

26 

07 


BNE 


LINS7 


04BE 

08 



INX 



BUMP POINTER 

04BF 

9C 

DE 


CPX 


BUFEND 

END OF BUFFER? 

04C1 

27 

CC 


BEQ 


LINS 


04C3 

20 

F3 


BR8 


LINS6 


04C5 

DF 

EC 

LINS7 

STX 


TEMP 

SRVE X 
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04C7 20 CB 


BRA LIN32 REPEAT 


4 INSERT SPACES FROM FIGHT SIDE 


04C9 

DE 

DE 


PINS 

LDX 


BUFEND 

SET POINTEP 

04CB 

86 

20 



LDR 

R 

#$20 

•SET UP SPACE 

04CD 

09 



RINS2 

DEX 




04CE 

A1 

00 



CMP 

R 

0, X 

IS CHAR R SPACE? 

04D0 

27 

FB 



8EQ 


RINS2 


04D2 

DF 

EC 



STX 


TEMP 

SAVE POINTER 

04D4 

DE 

DE 


RINS3 

LDX 


BUFEND 

GO TO END 

04D6 

09 




DEX 




04D7 

ft6 

00 



LDR 

fl 

0, X 

GET CHAR. 

04D9 

81 

29 



CMP 

R 

#$£0 

IS IT SPACE? 

04DB 

26 

2E 



BNE 


OUTLIN 


04DD 

DE 

EC 



LDX 


TEMP 

RESTORE X 

04DF 

fl6 

00 


RINS4 

LDR 

fl 

0, X 

GET CHAR 

04E1 

81 

20 



CMP 

R 

#$20 

IS IT SPACE? 

04E3 

27 

08 



BEQ 


RINS5 


04E5 

09 




DEX 



DEC THE POINTER 

04E6 

8C 

15 

E3 


CPX 


#LINBUF-1 

FINISHED? 

04E9 

27 

DE 



BEQ 


RINS 


04EB 

20 

F2 



8RR 


RINS4 

REPEAT 

04ED 

C6 

01 


RINS5 

LDR 

B 

#1 

SET COUNT = 1 

04EF 

BD 

05 

DD 


JSR 


INSSPC 

INSERT SPACE 

04F2 

D6 

CE 

• 


.DR 

B 

CNJ 

CENTER JUST? 

04F4 

27 

01 



BEQ 


RINS6 


04F6 

39 




RTS 



RETURN 

04F7 

DE 

EC 


RINS6 

_DX 


TEMP 

RESTORE POINTER 

04F9 

fl6 

00 


RINS7 

.DR 

R 

0, X 

GET CHARACTER 

04FB 

81 

20 



CMP 

fl 

#$20 

SPACE? 

04FD 

26 

08 



BNE 


RINS8 


04FF 

09 




DEX 




0500 

8C 

15 

E3 


CPX 


#LINBUF-1 

-ENISHED? 

0503 

27 

C4 



8EQ 


RINS 


0505 

20 

F2 



SRR 


RINS7 

REPEAT 

0507 

DF 

EC 


RINS8 

5TX 


TEMP 

SAVE POINTER 

0509 

20 

C9 



3RR 


RINS3 






♦ OUTPUT LINE 

FROM WORK 

BJFFER 

050B 

7F 

00 

B6 

QUTLIN i 

CLR 


SWRDF 

XR FLAG 

050E 

D6 

4E 



LDR 

B 

LFM 

_£FT MARGIN? 

0510 

7D 

00 

7B 


TST 


PTFL 

5 iJT IN INDENT? 

0513 

26 

02 



BNE 


OUTLI1 


0515 

DB 

48 



ADD 

B 

IND 

ADJUST LEFT 

0517 

7F 

00 

7B 

OUTLI1 

CLR 


PTFL 


051A 

DB 

7C 



ADD 

B 

SIN 

ADD IN SINGLE IN. 

051C 

28 

0C 



3MI 


0UTLI3 


051E 

27 

0fl 



3EQ 


0UTLI3 

• 

0520 

36 

20 


OUTLIE 

LDR 

R 

#$20 

SET UP SPACE 

0522 

37 




ASH 

B 



0523 

BD 

14 

9F 


JSR 


OUTCHR 

OUTPUT SPACE 

0526 

33 




PUL 

B 
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0527 

5fl 




DEC B 

0528 

26 

F6 



BNE 

052A 

D6 

C8 


OUTLI3 

LDR B 

052C 

27 

11 



BEQ 

052E 

86 

20 



LDR R 

0530 

DE 

DE 



LDX 

0532 

80 

15 

E4 

0UTLI4 

CPX 

0535 

27 

19 



BEQ 

0537 

09 




DEX 

0538 

fll 

00 



CMP fl 

053R 

27 

F6 



BEQ 

053C 

08 




INX 

053D 

DF 

R8 



STX 

853F 

CE 

15 

E4 

0UTLI5 

LDX 

0542 

9C 

R8 



CPX 

0544 

27 

0R 



BEQ 

0546 

A6 

00 


0UTL55 

LDR R 

0548 

BD 

14 

9F 


JSR 

054B 

08 




INX 

054C 

9C 

R8 



CPX 

054E 

26 

F6 



BNE 

0550 

5F 



0UTLI6 

CLR B 

0551 

D7 

8E 



STR B 

0553 

D7 

6F 



STR B 

0555 

D7 

Cfl 



STR B 

0557 

D7 

73 



STR B 

0559 

D7 

7C 



STR B 

055B 

73 

00 

6D 


COM 

055E 

CE 

15 

E4 


LDX 

0561 

DF 

DR 



STX 

0563 

CE 

01 

10 


LDX 

0566 

DF 

80 



STX 

0568 

BD 

14 

14 


JSR 

056B 

CE 

16 

7F 

0UTLI7 

LDX 

056E 

9C 

E2 


0UTL75 

CPX 

0570 

27 

17 



BEQ 

0572 

R6 

00 



LDR R 

8574 

08 




INX 

0575 

DF 

EC 



STX 

0577 

DE 

DR 



LDX 

0579 

R7 

00 



STR fl 

057B 

08 




INX 

057C 

9C 

DE 



CPX 

057E 

27 

09 



BEQ 

0580 

DF 

DR 



STX 

0582 

DE 

EC 



LDX 

0584 

7C 

00 

42 


INC 

0587 

20 

E5 



BRR 

0589 

CE 

16 

7F 

0UTLI8 

LDX 

058C 

DF 

E2 



STX 

058E 

BD 

08 

99 


JSR 

0591 

96 

D2 



LDR R 

0593 

27 

0fl 



BEQ 

0595 

4fl 



0UTL32 

DEC fl 


0UTLI2 

DEC COUNT 

FILFLG 

0UTLI5 

FILL MODE? 

#*20 

SETUP SPACE 

BUFEND 

GO TO END 

#LINBUF 

0UTLI6 

EMPTV? 

DEC THE POINTER 

0, X 

0UTLI4 

IS IT SPACE? 

BUMP POINTER 

STPOUT 

#LINBUF 

SET END 

STPOUT 

0UTLI6 

EMPTV? 

0, X 

GET CHARACTER 

OUTCHR 

OUTPUT IT 

BUMP POINTER 

STPOUT 

0UTL55 

DWFLG 

NOFL 

PFLG 

NSP 

SIN 

FINISHED? 

CLEAR FLAGS 

LEFT 

SWITCH SP. SIDES 

#LINBUF 

BUFPNT 

SET POINTER 

#TR8S 

NXTTRB 

SET TABS 

FIXWD 

#EXTBUF 

GO FIX WIDTH 

EBFEND 

0UTLI8 

CHECK FOR EXTRA? 

0, X 

TEMP 

GET CHARACTER 

BUFPNT 

0, X 

TRANSFER IT 

BUMP POINTER 

BUFEND 

CHECK END 

0UTLI8 

OVERFLOW! 

BUFPNT 

TEMP 

SAVE IT 

COLCNT 

BUMP COLUMN COUNT 

0UTL75 

REPEAT 

#EXTBUF 

FIX POINTER 

EBFEND 

• 

PCRLF 

OUTPUT CR & LF 

MSC 

0UTL85 

MULTIPLE SPACE? 
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0596 

27 

07 



BEQ 


0UTL85 


0598 

36 




PSH 

fl 


OUTPUT EXTRA SPACE 

0599 

Bl> 

08 

99 


JSR 


PCRLF 


0590 

32 




PUL 

R 



059D 

20 

F6 



BRA 


0UTL82 


059F 

96 

6B 


0UTL85 

LD8 

R 

FLBF 

FLUSHING? 

0581 

27 

01 



BEQ 


0UTLI9 


0583 

39 




RTS 




0584 

7E 

03 

3D 

GUTLI9 

JMP 


PROC 

GO PROCESS 





* RIGHT 

H8ND JUSTIFV 


0587 

BD 

06 

0B 

RIGHTJ 

JSR 


CNTSPC 

COUNT SPACES 

0588 

CE 

15 

E3 

RIGHTS 

LDX 


#LINBUF-1 


058D 

8D 

2E 



BSR 


INSSPC 

INSERT SPACES 

058F 

7E 

05 

0B 


JMF 


OUTLIN 

OUTPUT LINE 





* CENTER 

: JUS 

TIFV 


05B2 

8D 

57 


CENTJ 

BSR 


CNTSPC 

COUNT SPACES 

05B4 

57 




8SR 

B 


DIVIDE BV 2 

05B5 

20 

F3 



BR8 


RIGHTS 






* DELETE 

! CH8R8CTERS 


05B7 

DE 

E8 

- 

DELCHR 

LDX 


SPCPT2 

GET POINTER 

05B9 

90 

E8 



CPX 


SPCPT1 

EMPTV? 

05BB 

27 

IF 



BEQ 


DELCH4 


05BD 

90 

DE 



CPX 


BUFEND 


05BF 

27 

0E 



BEQ 


DELCH3 


05C1 

86 

00 



LD8 

fl 

0/ X 

GET CHARACTER 

05C3 

08 




INX 



BUMP THE POINTER 

0504 

DF 

E8 



STX 


SPCPT2 

SAVE IT 

0506 

DE 

E8 


• 

LDX 


SPCPT1 

RESTORE 

0508 

87 

00 



ST8 

R 

0, X 

SAVE CHARACTER 

0508 

08 




INX 



BUMP POINTER 

05CB 

DF 

E8 



STX 


SPCPT1 


05CD 

20 

E8 



BRR 


DELCHR 

REPEAT 

05CF 

DE 

E8 


DELCH3 

LDX 


SPCPT1 

GET POINTER 

05D1 

86 

20 



LDR 

R 

#*20 

SETUP SPACE 

05D3 

90 

DE 


DELC35 

CPX 


BUFEND 


05D5 

27 

05 

- 


BEQ 


DELCH4 


05D7 

87 

00 



STR 

R 

0, X 

PUT IN SPACE 

05D9 

08 




INX 



BUMP POINTER 

05B8 

20 

F7 



BRR 


DELC35 


05DC 

39 



DELCH4 

RTS 








* INSERT SP8CES 


05DD 

5D 



INSSPC 

TST 

B 


TEST COUNT’ 

05DE 

27 

28 



BEQ 


INSSP5 

IF NONE, RETURN 

05E0 

37 




PSH 

B 


SAVE COUNT 

05E1 

DF 

EC 



STX 


TEMP 

SAVE X 

05E3 

DE 

DE 



LDX 


BUFEND 

POINT TO END 










talk 
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05E5 DF E8 
05E7 08 
05E8 5fi 
05E9 26 FC 
05EB DF Efl 
05ED DE E8 
05EF 9C EC 
05F1 27 0E 
05F3 A6 00 
05F5 09 
05F6 DF E8 
05F8 DE ER 
05FR R7 00 
05FC 09 
05FD DF ER 
05FF 20 EC 
0601 33 
0602 86 20 
0604 08 
0605 R7 00 
0607 5R 
0608 26 FR 
060R 39 



STX 


SPCPT1 

INSSP2 

INX 




DEC 

B 



BNE 


INSSP2 


STX 


SPCPT2 

INSSP3 

LDX 


SPCPT1 


CPX 


TEMP 


BEQ 


INSSP4 


LDA 

R 

0, X 


DEX 




STX 


SPCPT1 


LDX 


SPCPT2 


STA 

A 

0, X 


DEX 




STX 


SPCPT2 


BRA 


INSSP3 

INSSP4 

PUL 

B 



LDA 

A 

#$20 

INSS44 

INX 




STA 

A 

0, X 


DEC 

B 



BNE 


INSS44 

INSSP5 

RTS 



* COUNT 

SPACES 



SAVE 

DEC THE COUNT 

SAVE POINTER 

FINISHED? 

GET CHARACTER 
DEC THE POINTER 
SAVE IT 

PUT CHARACTER 


REPEAT 

RESTORE COUNT 
SETUP SPACE 
BUMP THE POINTER 
STUFF SPACE 
DEC THE COUNT 

RETURN 


060B 

5F 


CNTSPC 

CLR 

B 

060C 

86 

20 


LDA 

A 

060E 

DE 

DE 


LDX 


0610 

09 


CNTSP2 

DEX 


0611 

A1 

00 


CMP 

A 

0613 

26 

03 


BNE 


0615 

5C 



INC 

B 

0616 

20 

F8 


BRA 


0618 

39 


CNTSP3 

RTS 



* CENTER LINE 


CLEAR COUNT 
#$20 SETUP SPACE 

BUFEND SET POINTER 

0, X SPACE? 

CNTSP3 

BUMP THE COUNT 

CNTSP2 


0619 

8D 

F0 

CNTRIT 

BSR 


061B 

96 

8E 


LDA 

A 

061D 

27 

0E * 


BEQ 


061F 

96 

C6 


LDA 

A 

0621 

10 



SBA 


0622 

48 



ASL 

A 

0623 

91 

C6 


CMP 

A 

0625 

22 

0C 


BHI 


0627 

16 



TAB 


0628 

96 

C6 

1 

LDA 

A 

062A 

10 



SBA 


062B 

16 



TAB 


062C 

57 



ASR 

B 

062D 

57 


CNTRI4 

ASR 

B 

062E 

CE 

15 E3 


LDX 


0631 

8D 

AA 


BSR 



CNTSPC GO COUNT SPACES 

DWFLG DOUBLE WIDTH? 

CNTRI4 

WIDTH GET WIDTH 

FIX FOR DOUBLE 

WIDTH 

CNTRI5 

SAVE 

WIDTH 

SUB FROM WIDTH 

DIVIDE BV TWO 

#LINBUF-1 SET POINTER 
INSSPC GO INSERT SPACE 
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0633 

7R 

00 

D4 CNTRI5 

DEC 


CNTFLG 

DEC CENTER COUNT 

0636 

26 

0B 


BNE 


CNTRI6 


0638 

4F 



CLR 

A 



0639 

97 

D4 


STA 

A 

CNTFLG 

CLEAR FLAG 

063B 

96 

6E 


LDA 

A 

TFILF 

GET TEMP FILL 

063D 

97 

C8 


STA 

A 

FILFLG 

SET FILL 

063F 

DE 

DE 


LDX 


BUFEND 

SET POINTER 

0641 

DF 

A8 


STX 


STPOUT 

SET END 

0643 

7E 

05 

0B CNTRI6 

JMP 


OUTLIN 

OUTPUT LINE 




* FIX BUFFER END POINTER 


0646 

C6 

05 

FIXBFE 

LDA 

B 

#5 

CHECK BUFFER POS. 

0648 

CE 

02 

25 

LDX 


#NUM+*100 

COMPARE WITH TEMP 

064B 

BD 

0B 

ED 

JSR 


SENV9 

CHECK IT 

064E 

81 -2Cf 


CMP 

A 

#$2D 

OVERFLOW?? 

0650 

27 

03 


BEQ 


FIXBF4 


0652 

7E 

12 

5E 

JMP 


PRNU27 

FINISH PROCESS 

0655 

CE 

15 

E4 FIXBF4 

LDX 


#LIHBUF 

SET POINTER 

0658 

DF 

DE 


STX 


BUFEND 


065A 

96 

4B 


LDA 

A 

LLN 

GET LINE LENGTH 

065C 

90 

C6 


SUB 

A 

WIDTH 

CALC. COLUMN HUM. 

065E 

4C 



INC 

A 



065F 

97 

42 


STA 

A 

COLCNT 

SAVE COUNT 

0661 

5F 



CLR 

B 



0662 

96 

C6' 


LDA 

A 

WIDTH 

GET WIDTH 

0664 

9B 

DF 


ADD 

A 

BUFEND+1 

ADD TO BUFEND 

0666 

D9 

DE 


ADC 

B 

BUFEND 


0668 

97 

DF 


STA 

A 

BUFEND+1 

SAVE RESULT 

066A 

D7 

DE 


STA 

B 

BUFEND 


066C 

39 



RTS 



RETURN 


* RETURN FROM MACRO 


066D 

7F 

00 

88 

RETMAC 

CLR 


FINMAC 

CLEAR FLAG 

0670 

32 




PUL 

A 


FIX STACK 

0671 

32 




PUL 

A 



0672 

32 




PUL 

A 



0673 

97 

D4 



STA 

A 

CNTFLG 

RESTORE FLAG 

0675 

CE 

00 

60 


LDX 


ftNUMPNT 


0678 

32 



RETMA2 

PUL 

A 


RESTORE VALUES 

0679 

A7 

00 



STA 

A 

0 s X 


067B 

08 




INX 




067C 

8C 

00 

6D 


CPX 


#LEFT 

FINISHED? 

067F 

26 

F7 



BNE 


RETMA2 


0681 

7A 

00 

8B 


DEC 


MACCNT 

DEC MACRO COUNTER 

0684 

96 

6C 



LDA 

A 

ATFLG 

DOING AT? 

0686 

27 

0B 



BEQ 


GETCH1 


0688 

39 




RTS 



RETURN 


* CLEAR 'ENDLIN' AND GET CHARACTER 

0689 7F 00 BF 


CLRGET CLR 


ENDLIN 
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* GET NEXT CHARACTER 


068C BD 14 71 
068F 96 88 
0691 26 DA 
0693 96 62 
0695 27 03 
0697 7E 11 B6 
069A 96 65 
069C 27 0D 
069E DE E6 
06A0 A6 00 
06R2 81 0D 
06A4 27 01 
06R6 08 


GETCHR 

GETCH1 

GETCH2 

GETC22 


JSR 
LDA A 
BNE 
LDA A 
BEQ 
JMP 
LDA A 
BEQ 
LDX 
LDA A 
CMP A 
BEQ 
INX 


06A7 

DF 

E6 


GETC25 

STX 

06A9 

20 

29 



BRA 

06AB 

96 

9E 


GETCH3 

LDA 

06AD 

26 

EF 



BNE 

06AF 

96 

66 



LDA 

06B1 

27 

08 



BEQ 

06B3 

BD 

0E 

E3 


JSR 

06B6 

26 

1C 



BNE 

06B8 

7E 

0F 

7D 


JMP 

06BB 

96 

98 


GETCH4 

LDA 

06BD 

27 

65 



BEQ 

06BF 

BD 

02 

06 


JSR 

06C2 

20 

10 



BRA 

06C4 

96 

8F 


GETCH5 

LDA 

06C6 

9A 

69 



ORA 

06C8 

26 

07 



BNE 

06CA 

96 

82 



LDA 

06CC 

27 

03 



BEQ 

06CE 

7E 

0B 

10 


JMP 

06D1 

BD 

14 

BA 

GETCH6 

JSR 





* FETCH 

AND 

06D4 

81 

1A 


FETCHR 

CMP 

06D6 

26 

05 



BNE 

06D8 

97 

6A 



STA 

06DA 

7E 

09 

51 


JMP 

06DD 

81 

0D 


FETCH2 

CMP 

06DF 

26 

29 



BNE 

06E1 

7F 

00 

76 


CLR 

06E4 

D6 

69 



LDA 

06E6 

26 

32 



BNE 

06E8 

D6 

9E 



LDA 

06EA 

26 

07 



BNE 

06EC 

D6 

BF 



LDA 

06EE 

27 

03 



BEQ 

06F0 

BD 

09 

2A 


JSR 

06F3 

97 

BF 


FETC22 

STA 

06F5 

7F 

00 

9E 


CLR 


A 

A 


TSTBRK 

FINMAC 

RETMAC 

EXCHR 

GETCH2 

FTCHNM 

CMFLG 

GETCH3 

CMNPNT 

0, X 

#*D 

GETC25 

CMNPNT 

FETCHR 

SBFLG 

GETC22 

MBFLG 

GETCH4 

INMAC 

FETCHR 

MCEND 

SPIFLG 

GETCH5 

INCH 

FETCHR 

DFMFLG 

NOCR 

GETCH6 

TABFLG 

GETCH6 

DOTAB 

INCHR 


#$1A 

FETCH2 

DONE 

FINISH 

#*D 

FETCH3 

SPSPF 

NOCR 

FETC35 

SBFLG 

FETC22 

ENDLIN 

FETC22 

FLUSHB 

ENDLIN 

SBFLG 


TEST FOR BREAK 
FINISH MACRO? 

GET EXTRA CHAR. 

GET NUMBER 
COMMAND? 

SET POINTER 
GET CHARACTER 
C. R. ? 

BUMP THE POINTER 
SAVE IT 

SPECIAL BUFFER? 

MACRO BUFFER? 

GET CHARACTER 

FINISH MACRO 
SPECIAL INPUT? 

GET CHARACTER 

DEFINE MACRO? 

TABS? 

GO DO TRB 
GET CHARACTER 


END OF FILE? 
SET FLAG 
C. R. ? 

SPECIAL SPACE? 

CHECK FLAG 

END OF LINE? 

FLUSH BUFFER 
SET FLAGS 






TSC MNEMONIC ASSEMBLER PAGE 17 


TSC 6800 TEXT PROCESSOR 


06F8 

D6 

8F 



LDfl 

B 

DFMFLG 

TEST 

06Ffl 

DA 

D4 



ORfl 

B 

CNTFLG 


06FC 

26 

08 



BNE 


FETC25 


06FE 

D6 

C8 



LDfl 

B 

FILFLG 

TEST FILL 

0700 

27 

04 



BEQ 


FETC25 


0702 

86 

20 



LDfl 

ft 

#<20 

SETUP SPflCE 

0704 

20 

19 



BRfl 


FETC36 


0706 

86 

0D 


FETC25 

LDfl 

ft 

#<D 

SETUP C. R. 

0708 

20 

15 



BRfl 


FETC36 


070ft 

D6 

8F 


FETCH3 

LDfl 

B 

DFMFLG 

GET FLAG 

070C 

Dfl 

80 



ORfl 

B 

PflSFLG 


070E 

26 

0fl 



BNE 


FETC35 


0710 

D6 

75 



LDfl 

B 

PflSCHR 

PASS CHAR? 

0712 

27 

0F 



BEQ 


FETCH4 


0714 

81 

20 



CMP 

ft 

#<20 

IS IT fl SPflCE? 

0716 

26 

02 



BNE 


FETC35 


0718 

8fl 

80 



ORfl 

A 

#<80 

SET PflRITV 

071ft 

5F 



FETC35 

CLR 

B 


CLEAR FLAGS 

071B 

D7 

BF 



STfl 

B 

ENDLIN 


071D 

D7 

75 



STfl 

B 

PflSCHR 


071F 

7F 

00 

B7 

FETC36 

CLR 


CAP 


0722 

39 



FETC37 

RTS 



RETURN 

0723 

81 

IF 


FETCH4 

CMP 

A 

#<1F 

CHECK CHAR 

0725 

22 

03 



BHI 


FETC45 


0727 

7E 

06 

80 


JMP 


GETCHR 

GO GET CHAR. 

072A 

D6 

BF 


FETC45 

LDfl 

B 

ENDLIN 

END OF LINE? 

0720 

27 

lfl 



BEQ 


FETCH5 


072E 

81 

2E 



CMP 

A 

#'. 

PERIOD? 

0730 

27 

06 



BEQ 


FETC47 


0732 

81 

3fl 



CMP 

fl 

#': 

COLON? 

0734 

26 

05 



BNE 


FETC48 


0736 

97 

6F 



STfl 

R 

NOFL 

SET NO FLUSH 

0738 

7E 

07 

DF 

FETC47 

JMP 


COMflND 

DO COMMAND 

073B 

81 

20 


FETC48 

CMP 

fl 

#<28 

SPflCE? 

073D 

26 

09 



BNE 


FETCH5 


073F 

97 

76 



STfl 

fl 

SPSPF 

SET FLAG 

0741 

BD 

09 

2ft 


JSR 


FLUSHB 

FLUSH BUFFER 

0744 

86 

fl0 


FETC49 

LDfl 

fl 

#<R0 


0746 

20 

D2 



BRfl 


FETC35 


0748 

D6 

76 


FETCH5 

LDfl 

B 

SPSPF 

TEST FLAG 

074ft 

27 

07 

- 


BEQ 


FETC55 


074C 

81 

20 



CMP 

fl 

#<20 

IS IT SPflCE? 

074E 

27 

F4 



BEQ 


FETC49 


0750 

7F 

00 

76 


CLR 


SPSPF 

CLEAR OUT 

0753 

D6 

65 


FETC55 

LDfl 

B 

CMFLG 

COMMAND? 

0755 

Dfl 

66 



ORfl 

B 

MBFLG 


0757 

Dfl 

8D 



ORfl 

B 

NONUMS 


0759 

Dfl 

90 



ORfl 

B 

SPIFLG 

• 

075B 

Dfl 

9E 



ORfl 

B 

SBFLG 


075D 

26 

1C 



BNE 


FETCH6 

* 

075F 

91 

00 



CMP 

fl 

TAB 

CHECK IF TAB 

0761 

26 

18 



BNE 


FETCH6 


0763 

DE 

80 



LDX 


NXTTflB 

GET NEXT TAB 

0765 

D6 

42 



LDfl 

B 

COLCNT 

GET COUNT 
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0767 

6D 

00 


FETC57 

TST 


0, X 

CHECK 

0769 

27 

RF 



BEQ 


FETC35 


076B 

El 

00 



CMP 

B 

0/ X 

FINISHED? 

076D 

25 

03 



BLO 


FETC58 


076F 

08 




INX 



BUMP THE POINTER 

0770 

20 

F5 



BRR 


FETC57 


0772 

DF 

80 


FETC58 

STX 


NXTTRB 

SAVE POINTER 

0774 

96 

Cl 



LDR 

fl 

TFILL 


0776 

97 

82 



STfl 

fl 

TRBFLG 

SET FLAG 

0778 

7E 

07 

lfl 

FETC59 

JMP 


FETC35 


077B 

D6 

8D 


FETCH6 

LDR 

B 

NONUMS 

NUMBERS? 

077D 

26 

ID 



BNE 


FETCH7 


077F 

81 

23 



CMP 

fl 

#'# 

POUND SIGN? 

0781 

27 

04 



BEQ 


FETC65 


0783 

81 

25 



CMP 

fl 


PERCENT SIGN? 

0785 

26 

15 



BNE 


FETCH7 


0787 

D6 

69 


FETC65 

LDR 

B 

NOCR 

DO C. R. ? 

0789 

37 




PSH 

B 



078R 

97 

69 



STR 

fl 

NOCR 

SAVE VALUES 

078C 

97 

7F 



STR 

fl 

NOEXP 


078E 

BD 

11 

9E 


JSR 


CLRNUM 

CLEAR NUMBER 

0791 

BD 

12 

88 


JSR 


PRNU32 

PROCESS NUMBER 

0794 

33 




PUL 

B 



0795 

07 

69 



STR 

B 

NOCR 

RESTORE VALUES 

0797 

24 

DF 



BCC 


FETC59 


0799 

7E 

06' 

80 


JMP 


GETCHR 

GET CHARACTER ^ 

079C 

8i 

7 * 

FETCH7 

CMP 

fl 

rs 

BACK SLASH? ^ 

079E 

26 

05 


BNE 


FETC75 


07R0 

97 

75 



STR 

fl 

PRSCHR 

SET PASS CHAR. 

07R2 

7E 

06 

89 


JMP 


CLRGET 

GO GET IT 

07R5 

81 

40 


FETC75 

CMP 

fl 

#'0 

RT SIGN? 

07R7 

27 

1C 



BEQ 


CRPIT 


07R9 

81 

5E 



CMP 

fl 

#$5E 

UP ARROW? 

07RB 

27 

21 



BEQ 


SETCRP 


07RD 

D6 

B7 



LDR 

B 

CAP 

CHECK MODE 

07RF 

DR 

B8 



ORR 

B 

SCRP 


07B1 

DR 

66 



ORfl 

B 

MBFLG 


07B3 

26 

03 



BNE 


FETC59 


07B5 

81 

41 



CMP 

R 

#'A 

CHECK IF LETTER 

07B7 

25 

BF 



BLO 


FETC59 


07B9 

81 

5R 



CMP 

fl 

#'Z 


07BB 

22 

BB 



BHI 


FETC59 


07BD 

D6 

77 



LDR 

B 

DOCRP 

DO CAP? 

07BF 

27 

B7 



BEQ 


FETC59 


07C1 

8B 

20 



RDD 

R 

#$20 

FORCE TO LOWER 

07C3 

20 

B3 


FETCH8 

BRR 


FETC59 






* CAP : 

SINGLE LETTER 


0705 

D6 

77 


CRPIT 

LDR 

B 

DOCRP 

CHECK MODE 

0707 

27 

Ffl 



BEQ 


FETCH8 


0709 

97 

B7 



STR 

R 

CAP 

SET FLAG 

07CB 

7E 

06 

89 

CRPIT2 

JMP 


CLRGET 



~Rtdi 
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* CAP STRING OF LETTERS 


07CE 

D6 

77 


SETCAP 

LDA 

B 

DOCAP 

CHECK MODE 

07D0 

27 

FI 



BEQ 


FETCH8 


07DS 

D6 

B8 



LDA 

B 

SCAP 

GET FLAG 

07D4 

27 

05 



BEQ 


SETCA2 


07D6 

7F 

00 

88 


CLR 


SCAP 

CLEAR IT 

07D9 

20 

F0 



BRA 


CAPIT2 


07DB 

97 

B8 


SETCA2 

STA 

A 

SCAP 

SET FOR STRING 

07DD 

20 

EC 



BRA 


CAPIT2 






* COMMAND PROCESSOR 


07DF 

7F 

00 

BF 

COMAND 

CLR 


ENDLIN 

CLEAR FLAG 

07E2 

CE 

18 

09 


LDX 


#CMNDBF-1 

SET POINTER 

07E5 

08 



C0MAN2 

INX 



BUMP IT 

07E6 

7C 

00 

69 


INC 


NOCR 

SET NO C. R. 

07E9 

DF 

F2 



STX 


TEMP6 

SAVE POINTER 

07EB 

7C 

00 

8D 


INC 


NONUMS 


07EE 

BD 

06 

8C 


JSR 


GETCHR 

GET CHARACTER 

07F1 

DE 

F2 



LDX 


TEMP6 

RESTORE POINTER 

07F3 

7F 

00 

69 


CLR 


NOCR 

CLEAR FLAG 

07F6 

7F 

00 

8D 


CLR 


NONUMS 


07F9 

A7 

00 



STA 

A 

0, X 

PUT CHARACTER 

07FB 

81 

0D 



CMP 

A 

##D 

WAS IT A C. R. ? 

07FD 

26 

E6 



BNE 


C0MAN2 


07FF 

7F 

00 

BF 


CLR 


ENDLIN 

RESET END LINE 

0802 

CE 

18 

0A 


LDX 


#CMNDBF 

SET POINTER 

0805 

A6 

00 


C0MAN3 

LDA 

A 

0j X 

GET CHARACTER 

0807 

08 




INX 



BUMP THE POINTER 

0808 

E6 

00 



LDA 

B 

0, X 

GET NEXT CHAR 

080A 

08 




INX 



BUMP 

080B 

DF 

E6 



STX 


CMNPNT 

SAVE THE POINTER 

080D 

81 

5F 



CMP 

A 

##5F 

LOWER CASE? 

080F 

23 

04 



BLS 


C0MAN4 


0811 

80 

20 



SUB 

A 

##20 

SET TO UPPER 

0813 

C0 

20 



SUB 

B 

##20 


0815 

CE 

09 

5C 

C0MAN4 

LDX 


#CMNDT 

POINT TO TABLE 

0818 

A1 

00 


C0MAN5 

CMP 

A 

0, X 

COMPARE FIRST 

081R 

26 

0C 



BNE 


C0MAN7 


081C 

El 

01 



CMP 

B 

1, X 

COMPARE SECOND 

081E 

26 

08 



BNE 


COMAN7 


0820 

97 

65 



STA 

A 

CMFLG 

FOUND COMMAND 

0822 

EE 

02 



LDX 


2, X 

GET ADDRESS 

0824 

flD 

00 


C0MRN6 

JSR 


0, X 

GO DO IT 

0826 

20 

2F 



BRA 


FINCM 

FINISH COMMAND 

0828 

08 



C0MAN7 

INX 



BUMP POINTER 

0829 

08 




INX 




0828 

08 




INX 




082B 

88 




INX 



• 

082C 

8C 

0fl 

3C 


CPX 


#TBLEND 

TABLE END? 

082F 

26 

E7 



BNE 


C0MAN5 


0831 

36 




PSH 

A 



0832 

96 

CD 

CD 



LDA 

A 

MACCNT 

TEST MACRO NUMBER 
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( 


n 




0834 81 0? 
0836 32 
0837 24 15 
0839 CE 19 72 
083C 9C Ffi 
083E 27 17 
0840 fil 00 
0842 26 04 
0844 El 01 
0846 27 29 
0848 08 
0849 08 
084R 08 
084B 08 
084C 20 EE 


084E CE 15 79 
0851 BD 14 90 
0854 7E 02 09 


0857 96 8R 
0859 27 0ri 
085B 4F 
085C 97 BF 
085E 97 65 
0860 97 8R 
0862 7E 08 05 
0865 7F 00 6F 
0868 7F 00 65 
086B 7C 00 BF 
086E 7E 06 8C 


0871 DF B0 
0873 CE 00 6C 
0876 R6 00 
0878 36 
0879 6F 00 
087B 09 
087C 8C 00 5F 
087F 26 F5 
0881 96 D4 
0883 36 
0884 7F 00 D4 
0887 7C 00 8B 
088R DE B0 
088C 86 0F 
088E 97 66 
0890 97 BF 



CMP 

fl 

#7 



PUL 

R 




BHS 


MRCOVF 

OVERFLOW? 


LDX 


#MRCTBL 

POINT TO MACROS 

C0MRN8 

CPX 


MRCEND 

END? 


BEQ 


FINCM 



CMP 

R 

0, X 

COMPARE FIRST 


BNE 


C0MRN9 


* 

CMP 

B 

1/ X 

COMPARE SECOND 


BEQ 


CflLMflC 


C0MRN9 

INX 



FIND NEXT ENTRV 


INX 





INX 





INX 





BRfl 


C0MRN8 


* MACRO 

OVERFLOW ERROR 


MRCOVF 

LDX 


#OVFSTR 

POINT TO STRING 


JSR 


PSTRNG 

OUTPUT IT 


JMP 


MON 



* FINISH COMMAND 


FINCM 

LDA 

A 

IFFLG 

CHECK FOR IF 


BEQ 


FINCM1 



CLR 

A 


CLEAR FLAGS 


STA 

A 

ENDLIN 



STA 

A 

CMFLG 



STA 

A 

IFFLG 



JMP 


C0MRN3 

GO DO COMMAND 

FINCM1 

CLR 


NOFL 

CLEAR FLAGS 

FINCM2 

CLR 


CMFLG 


FINCM4 

INC 


ENDLIN 

SET END LINE 


JMP 


GETCHR 

GO GET CHARACTER 

* CALL 

MACRO 



CALMAC 

STX 


XMAC 

SAVE POINTER 


LDX 


ttATFLG 

POINT TO VALUES 

CALMA2 

LDA 

A 

0, X 

GET VALUE 


PSH 

A 


PUT ON STACK 


CLR 


0, X 

CLEAR IT 


DEX 





CPX 


#INC 

FINISHED? 


BNE 


CALMR2 



LDA 

A 

CNTFLG 

SAVE CNT FLAG 


PSH 

A 




CLR 


CNTFLG 



INC 


MACCNT 

BUMP COUNTER 


LDX 


XMAC 

RESTORE COUNT 


LDA 

A 

#*F 



. STA 

A 

MBFLG 

SET FLAG 


STA 

A 

ENDLIN 
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0892 

EE 

02 



LDX 

2, X 

GET ADDRESS 

0894 

DF 

67 



STX 

MBFPNT 

SAVE RS POINTER 

0896 

7E 

03 

3D 


JMP 

PROC 

GO PROCESS 





* PRINT 

C. R. 

AND L. F. 


0899 

BD 

13 

ED 

PCRLF 

JSR 

PUSHX 

SAVE X 

089C 

C6 

18 



LD8 B 

#24 

SET COUNT 

089E 

CE 

15 

00 


LDX 

#FIXWD+$EC 

08A1 

BD 

0B 

ED 


JSR 

SENV9 

CHECK flCTIVITV 

0884 

81 

28 



CMP 8 

#$28 

OVERFLOW? 

0886 

26 

CE 



BNE 

CRLMR2 


0888 

8D 

07 


PCRLF2 

BSR 

SCRLF 

DO CR AND LF 

0888 

BD 

14 

71 


JSR 

TSTBRK 

BREAK? 

088D 

BD 

13 

FF 

PCRLF4 

JSR 

PULLX 

RESTORE X 

08B0 

39 




RTS 


RETURN 





* SPECI8L C8RRI8GE RETURN LINE FEED 

08B1 

CE 

15 

43 

SCRLF 

LDX 

#CRLFST 

POINT TO STRING 

08B4 

86 

00 


SCRLF1 

LD8 8 

0, X 

GET CHARACTER 

08B6 

81 

04 



CMP 8 

#4 

IS IT 4? 

08B8 

27 

06 



BEQ 

SCRLF3 


08B8 

BD 

14 

9F 


JSR 

CUTCHR 

OUTPUT CHAR. 

08BD 

08 




INX 


BUMP POINTER 

08BE 

20 

F4’ 



BR8 

SCRLF1 


08C0 

96 

79 


SCRLF3 

LDR 8 

NOOUT 

DO OUTPUT? 

08C2 

26 

18 



BNE 

SCRLF4 


08C4 

96 

94 



LD8 8 

TLPP 

LINES PER PAGE? 

0806 

27 

14 



BEQ 

SCRLF4 


08C8 

7C 

00 

78 


INC 

TOUTL 

BUMP LINE COUNT 

08CB 

91 

78 



CMP 8 

TOUTL 

MAX? 

08CD 

22 

0D 



BHI 

SCRLF4 


08CF 

7F 

00 

78 


CLR 

TOUTL 

CLEAR COUNT 

08D2 

BD 

02 

06 


JSR 

INCH 

WAIT FOR CHARACTER 

08D5 

81 

0D 



CMP 8 

#$D 

IS IT C. R. ? 

08D7 

26 

03 



BNE 

SCRLF4 


08D9 

7E 

02 

09 


JMP 

MON 

EXIT PROCESSOR 

08DC 

96 

91 


SCRLF4 

LD8 8 

DIVFLG 

DIVERTING? 

08DE 

26 

43 



BNE 

SCRLF9 


08E0 

7C 

00 

4D 


INC 

LINCNT 

BUMP LINE COUNTER 

08E3 

96 

4D 


SCRLF5 

LDR fl 

LINCNT 


08E5 

CE 

17 

D8 


LDX 

STRAPS 

POINT TO TRAPS 

08E8 

81 

00 


SCRL55 

CMP fl 

0/ X 

LINE = TRAP? 

08E8 

27 

24 



BEQ 

SCRLF8 


08EC 

08 




INX 


GET TO NEXT 

08ED 

08 




INX 



08EE 

08 




INX 



08EF 

8C 

18 

08 


CPX 

STRPEND 

END? 

08F2 

26 

F4 



BNE 

SCRL55 

% * 

08F4 

91 

4F 


SCRLF6 

CMP fl 

PGL 

BOTTOM OF PAGE? 

08F6 

23 

2B 



BLS 

SCRLF9 


08F8 

96 

5E 



LDR R 

NPGN 

GET NEW PAGE NUM. 

08F8 

27 

07 



BEQ 

SCRLF7 







TSC 6800 

TEXT PROCESSOR 



TSC 

MNEMONIC ASSEMBLER 

PAGE 22 

08FC 

7F 

00 

5E 


CLR 


NPGN 



08FF 

97 

74 



STfl 

A 

PGN 

SET PAGE NUMBER 


0901 

20 

03 



BRR 


SCRL75 



0903 

70 

00 

74 

SCRLF7 

INC 


PGN 

BUMP BV ONE 


0906 

86 

01 


SCRL75 

LDR 

R 

#1 

SET UP 1 


0908 

97 

4D 



STfl 

A 

LINCNT 

SET LINE COUNT 


090R 

96 

B5 



LDR 

fl 

SUPL 

CHECK FLAG 


090C 

26 

15 



BNE 


SCRLF9 



090E 

20 

D3 



BRR 


SCRLF5 



0910 

70 

00 

60 

SCRLF8 

INC 


flTFLG 

BUMP FIT COUNT 


0913 

96 

BF 



LDR 

R 

ENDLIN 

SAVE STATUS 


0915 

36 




PSH 

fl 




0916 

R6 

01 



LDR 

fl 

1, X 

GET NAME 


0918 

E6 

02 



LDR 

B 

2; X 



091A 

BD 

08 

15 

SCRL85 

JSR 


C0MAN4 

GO PROCESS 


091D 

7fl 

00 

60 


DEC 


flTFLG 

DEC COUNT 


0920 

32 




PUL 

R 




0921 

97 

BF 



STfl 

fl 

ENDLIN 

RESTORE STATUS 


0923 

39 



SCRLF9 

RTS 



RETURN 






* BREAK 

FILLED 

BUFFER 



0924 

86 

01 


BRRK 

LDfl 

R 

#1 

SETUP 1 


0926 

91 

4D 



CMP 

fl 

LINCNT 

TEST LINE COUNT 


0928 

27 

B9 



BEQ 


SCRLF5 







* FLUSH 

WORK BUFFER 



092R 

96 

6F 


FLUSHB 

LDR 

fl 

NOFL 

NO FLUSH? 


092C 

26 

IF 



BNE 


FLUSH5 



092E 

86 

20 


FLUSH 

LDfl 

fl 

#$20 

SET UP SPACE 


0930 

DE 

DR 



LDX 


BUFPNT 

SET POINTER 


0932 

80 

15 

E4 


CPX 


#LINBUF 

BEGINNING OF BUFFER? 

0935 

27 

16 



BEQ 


FLUSH5 



0937 

DF 

R8 



STX 


STPOUT 

SET END 


0939 

90 

DE 


FLUSH2 

CPX 


BUFEND 

END? 


0938 

27 

05 



BEQ 


FLUSH3 



093D 

R7 

00 



STfl 

fl 

0/ X 

SAVE CHARACTER 


093F 

08 




INX 



BUMP POINTER 


0940 

20 

F7 



BRR 


FLUSH2 



0942 

CE 

15 

E4 

FLUSH3 

LDX 


#LINBUF 

POINT TO BUFFER 


0945 

97 

6B 



STfl 

fl 

FLBF 

SET FLAG 


0947 

BD 

04 

32 


JSR 


RDJSPC 

ADJUST SPACE 


094R 

7F 

00 

6B 


CLR 


FLBF 



094D 

7F 

00 

6F 

FLUSH5 

CLR 


NOFL 

CLEAR FLAG 


0950 

39 




RTS 



RETURN 






* FINISH AND CLEAN UP 



0951 

8D 

D7 


FINISH 

BSR 


FLUSHB 

FLUSH BUFFER 


0953 

70 

00 

B5 

FINIS4 

INC 


SUPL 


/lU^ I 


~SY 


'"JSFr 


~PflGt 

——GCr‘~PnGtr N - 

ft \ ^ \ ^ 

0959 

7E 

02 

09 


JMP 


MON 

EXIT 



•f 
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* COMMAND TABLE 


095C 

53 


CMNDT 

FCC 

'SP' 

095D 

50 





095E 

0A 

44 


FDB 

SPACE 

0960 

50 



FCC 

'PG' 

0961 

47 





0962 

0A 

67 


FDB 

PAGE 

0964 

4D 


. ‘ . 

FCC 

'MS' 

0965 

53 


i 



0966 

0A 

8B 


FDB 

MULTS 

0968 

53 



FCC 

'SS' 

0969 

53 





096A 

0A 

99 


FDB 

SNGLS 

096C 

4E 



FCC 

'NJ' 

096D 

4A 





096E 

0A 

9D 


FDB 

NOJST 

0970 

4A 



FCC 

'JU' 

0971 

55 





0972 

0A 

A1 


FDB 

JST 

0974 

44 



FCC 

'DH' 

0975 

48 





0976 

0C 

04 


FDB 

DUBH 

0978 

44 



FCC 

'DW' 

0979 

57 





097A 

0C 

0F 


FDB 

DUBW 

097C 

44 



FCC 

'DB' 

097D 

42 





097E 

0C 

18 


FDB 

DUBB 

0980 

43 



FCC 

'CE' 

0981 

45 





0982 

0C 

24 


FDB 

CENTER 

0984 

42 



FCC 

'BR' 

0985 

52 




1 

0986 

09 

24 


FDB 

BRAK 

0988 

2A 



FCC 


0989 

20 





098A 

0A 

66 


FDB 

SPACE6 

098C 

46 



FCC 

'FI' 

098D 

49 





098E 

0C 

B2 


FDB 

FILL 

0990 

4E 



FCC 

'NF' 

0991 

46 





0992 

0C 

AB 


FDB 

NOFILL 

0994 

53 



FCC 

'SI' 

0995 

49 





0996 

0C 

59 


FDB 

SIND 

0998 

50 



FCC 

'PI' 

0999 

49 





099A 

0C 

76 


FDB 

PTIND 

099C 

50 



FCC 

'PN' 

099D 

4E 





099E 

0B 

F7 


FDB 

PGNUM 

09A0 

4C 



FCC 

'LM' 
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TSC 6808 TEXT PROCESSOR 


0901 

4D 




0902 

00 

CB 

FDB 

LEFTM 

0904 

49 


FCC 

'IN' 

0905 

4E 




0906 

00 

DB 

FDB 

INDNT 

0908 

4C 


FCC 

'LN' 

0909 

4E 




0900 

00 

FI 

FDB 

LENTH 

09OC 

4E 


FCC 

'NS' 

0900 

53 




09OE 

0B 

23 

FDB 

NOSPC 

09B0 

52 


FCC 

'RS' 

09B1 

53 




09B2 

0B 

26 

FDB 

RESPC 

09B4 

50 


FCC 

'PL' 

09B5 

4C 




09B6 

00 

44 

FDB 

POGEL 

09B8 

43 


FCC 

'CP' 

09B9 

50 




09BO 

00 

6D 

FDB 

STOOP 

09BC 

4E 


FCC 

'NC' 

09BD 

43 




09BE 

00 

72 

FDB 

NOCOP 

09C0 

4E 


PCC 

'NL' 

09C1 

40 




09C2 

00 

E6 

FDB 

NEDL 

09C4 

53 


FCC 

'SV' 

0905 

56 




09C6 

0D 

2D 

FDB 

SOVS 

09C8 

4F 


FCC 

'OS' 

09C9 

53 




0900 

0D 

49 

FDB 

OUTSV 

09CC 

41 


FCC 

'OT' 

09CD 

54 




09CE 

0D 

52 

FDB 

OTL 

09D0 

44 


FCC 

'DM' 

09D1 

4D 




09D2 

0D 

9E 

FDB 

DEFMOC 

09D4 

41 


FCC 

'OM' 

09D5 

4D 




09D6 

0D 

DC 

FDB 

OPMOC 

09D8 

52 


FCC 

'RM' 

09D9 

4D 




09DO 

0D 

E5 

FOB 

REMMOC 

09DC 

44 


FCC 

'DI' 

09DD 

49 




09DE 

0E 

25 

FDB 

DIVERT 

09E0 

44 


FCC 

'DO' 

09E1 

41 




09E2 

0E 

44 

FDB 

DIVOPP 

09E4 

53 


FCC 

'ST' 

09E5 

54 




09E6 

00 

D2 

FDB 

STOP 

09E8 

54 


FCC 

'TL' 








uBXfcLli 
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09E9 

4C 




09Efl 

0F 

Cl 

FDB 

TITLE 

09EC 

4C 


FCC 

'LT' 

09ED 

54 


i 


09EE 

0F 

B4 

FOB 

TLEN 

09F0 

43 


FCC 

'CH' 

09F1 

48 




09F2 

11 

12 

FDB 

CHNG 

09F4 

49 


FCC 

'IF' 

09F5 

46 




09F6 

10 

R5 

FDB 

IF 

09F8 

4E 


FCC 

'NR' 

09F9 

52 




09FR 

11 

65 

FDB 

NREG 

09FC 

4i 


FCC 

'RR' 

09FD 

52 




09FE 

11 

84 

FDB 

RRB 

0R00 

53 


FCC 

'SR' 

0R01 

52 




0R02 

11 

88 

FDB 

SROM 

0R04 

43 


FCC 

'CR' 

0R05 

52 




0R06 

11 

8D 

FDB 

CROM 

0R08 

41 


FCC 

'RU' 

0R09 

55 




OR0R 

11 

91 

FDB 

SRUTO 

0R0C 

54 


FCC 

'TC' 

0R0D 

43 




0R0E 

0B 

2fl 

FDB 

TRBCH 

0R10 

54 


FCC 

'TF' 

0R11 

46 




0R12 

0B 

35 

FDB 

TflBFIL 

0R14 

54 


FCC 

'Tfl' 

0R15 

41 




0R16 

0B 

41 

FDB 

STRB 

0R18 

45 


FCC 

'EX' 

0R19 

58 




0R1R 

09 

51 

FDB 

FINISH 

0R1C 

54 


FCC 

'TM' 

0R1D 

4D 




0R1E 

0B 

60 

FDB 

TERM 

OR20 

47 


FCC 

'GI' 

0R21 

49 




0R22 

0B 

75 

FDB 

GETIN 

0R24 

45 


FCC 

'EV' 

0R25 

56 




0R26 

0B 

83 

FDB 

SENV 

0R28 

52 


FCC 

'RP' 

0R29 

50 




0R2R 

0C 

B9 

FDB 

RPT 

0R2C 

50 


FCC 

'PS' 

0R2D 

53 




0R2E 

0R 

3D 

FDB 

PRSS 

0R30 

20 


FCC 

/ / 








j 
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0A31 

20 







0A32 

0R 

66 



FDB 

SPACE6 


0A34 

20 




FCC 

✓ / 


0R35 

20 







0R36 

OR 

66 



FDB 

8PACE6 


0R38 

20 




FCC 

.* ✓ 


0R39 

20 







0R3R 

0fl 

66 



FDB 

8PACE6 


0R3C 

00 



TBLEND 

FCB 

0 






* PASS 

FILE ROUTINE . PS 


0A3D 

7F 

00 

08 

PASS 

CLR 

FILFLG 

FIX FLAGS 

OR40 

70 

00 

8C 


INC 

PASFLG 


0R43 

39 




RTS 







* SPACE 

ROUTINE . SP N 


0R44 

BD 

09 

2fl 

SPACE 

JSR 

FLUSHB 

FLUSH BUFFER 

0R47 

96 

73 



LDA A 

NSP 

NO SPACE? 

0R49 

26 

IB 



BNE 

3PRCE6 


0R4B 

BD 

12 

lfl 


JSR 

CHKNUM 

CHECK FOR NUMBER 

0R4E 

96 

70 



LDA A 

INNUM 

GET NUMBER 

0R50 

26 

03 



BNE 

SPACE2 


0A52 

70 

00 

70 


INC 

INNUM 

INC BV ONE 

0R55 

BD 

0C 

F5 

SPACE2 

JSR 

FNTR 

FIND TRAP 

0R58 

91 

70 



CMP A 

INNUM 

EQUAL? 

0R5R 

25 

02 



3L0 

SPACE4 


0R5C 

96 

70 



LDA A 

INNUM 

GET NUMBER 

0R5E 

36 



SPACE4 

PSH A 



0R5F 

BD 

08 

99 


JSR 

PCRLF 

•OUTPUT CR AND LF 

0R62 

32 




PUL A 



0R63 

4R 




DEC A 


DEC COUNT 

0A64 

26 

F8 



8NE 

SPACE4 


0A66 

39 



SPACE6 

RTS 


RETURN 





* PAGE 

ROUTINE 

. PG +N 


0A67 

BD 

12 

lfl 

PAGE 

JSR 

:hknum 

CHECK FOR NUMBER 

0A6R 

24 

07 



BCC 

®AGE2 


0A6C 

96 

74 



LDA A 

®GN 

GET PAGE NUMBER 

0R6E 

BD 

12 

09 


JSR 

-IXVAL 

FIX VALUE 

0R71 

20 

OB 



BRA 

: ‘RGE4 


0R73 

96 

73 


PAGE2 

LDA A 

NSP 

NO SPACE? 

0R75 

26 

13 



8NE 

a AGE6 


0R77 

96 

5E 



uDA A 

NPGN 

GET NEW PAGE NUM. 

0R79 

26 

03 



BNE 

*AGE4 


0R7B 

96 

?4 



lDH A 

®GN 


0R7D 

4C 




INC A 


3UMP BV ONE 

0R7E 

97 

3E 


PAGE4 

STA A 

NPGN 

SAVE AS NEW 

0R80 

BD 

09 

2R 


JSR 

-LUSHB 

FLUSH BUFFER 

0R83 

BD 

08 

99 

PAGES 

JSR 

PCRLF 

OUTPUT CR & LF 

0R86 

96 

5E 



LDA A 

NPGN 

GET NEW PAGE NUM. 

0R88 

26 

F9 



BNE 

®AGE5 
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0fl8fi 39 


PRGE6 RTS RETURN 

* MULTIPLE SPACE ROUTINE . MS +N 


0R8B 

BD 

12 

1R 

MULTS 

JSR 


CHKNUM 

CHECK FOR HUMBER 

0R8E 

24 

04 



BCC 


MULTS2 


0R90 

96 

70 



LDR 

R 

INNUM 

GET NUMBER 

0R92 

20 

02 



BRfl 


MULTS3 


0R94 

86 

02 


MULTS2 

LDR 

fl 

#2 

DEFAULT IS 2 

0R96 

97 

D2 


MULTS3 

STfi 

fl 

MSC 

SET COUNT 

0R98 

39 




RTS 








* SINGLE SPACE 

ROUTINE 

. SS 

0R99 

7F 

00 

D2 

SNGLS 

CLR 


MSC 

CLEAR COUNT 

0R9C 

39 




RTS 








* NO ADJUST 

ROUTINE . NJ 

0R9D 

7F 

00 

D6 

NOJST 

CLR 


JUST 

CLEAR JUST FLAG 

0RR0 

39 




RTS 








* SET 

JUSTIFICATION ROUTINE JU C 

0RR1 

97 

D6 


JST 

STR 

R 

JUST 

SET FLAG 

0RR3 

BD 

11 

D8 


JSR 


LDNSKP 

GET NEXT CHRR. 

0RA6 

BD 

11 

E6 


JSR 


CLSFV 

CLASSIFY IT 

0RR9 

Cl 

02 



CMP 

B 

#2 


0RRB 

26 

09 



BNE 


JST15 


0RRD 

81 

4E 



CMP 

fl 

#'N 

NORMAL? 

0RRF 

26 

06 



BNE 


JST2 


0RB1 

4F 



JST1 

CLR 

fl 


ADJUST FLAGS 

0AB2 

97 

CE 



STR 

fl 

CNJ 


0RB4 

97 

D0 



STR 

fl 

RTJ 


0AB6 

39 



JST15 

RTS 



RETURN 

0RB7 

81 

52 


JST2 

CMP 

R 

#'R 

RIGHT HAND? 

0RB9 

26 

06 



BNE 


JST3 


0RBB 

7 F 

00 

CE 


CLR 


CNJ 

FIX FLAGS 

0RBE 

97 

D0 



STR 

fl 

RTJ 


0RC0 

39 




RTS 




0RC1 

81 

43 


JST3 

CMP 

R 

#'C 

CENTERED? 

0RC3 

26 

EC 



BNE 


JST1 


0RC5 

7F 

00 

D0 


CLR 


RTJ 

FIX FLAGS 

0RC8 

97 

CE 



STR 

fl 

CNJ 


0RCR 

39 



JST4 

RTS 



RETURN 





* SET 

LEFT MARGIN . LM 

+N 

0RCB 

BD 

12 

1R 

LEFTM 

JSR 


CHKNUM 

CHECK FOR NUMBER 

0RCE 

24 

0fl 



BCC 


LEFTM2 

. 

0RD0 

96 

4E 



LDR 

R 

LFM 

GET MARGIN 

0RD2 

BD 

12 

09 


JSR 


FIXVRL 

FIX VALUE 

0RD5 

2fl 

01 



BPL 


LEFTM1 


0RD7 

4F 




CLR 

fl 
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0AD8 

97 

4E 


LEFTM1 

STA A 

LFM 

SET NEW VALUE 

0ADA 

39 



LEFTM2 

RTS 


RETURN 





* SET 

INDENT . 

IN +N 


0ADB 

BD 

09 

2A 

INDNT 

JSR 

FLUSHB 

FLUSH BUFFER 

0ADE 

BD 

12 

1A 


JSR 

CHKNUM 

CHECK FOR NUMBER 

0AE1 

24 

F7 



BCC 

LEFTM2 


0AE3 

96 

48 



LDA A 

IND 

GET INDENT 

0AE5 

BD 

12 

09 


JSR 

FIXVAL 

FIX VALUE 

0AE8 

2A 

01 



BPL 

INDNT2 


0AEA 

4F 




CLR A 



0AEB 

90 

48 


INDNT2 

SUB A 

IND 

SET INDENT 

0AED 

97 

83 



STA A 

TIND 

SAVE AS TEMP 

0AEF 

20 

14 



BRA 

LENT25 






* SET LENGTH OF LINE . 

LN +N 

0AF1 

BD 

12 

1A 

LENTH 

JSR 

CHKNUM 

CHECK FOR NUMBER 

0AF4 

24 

19 


. 

BCC 

LENTH5 


0AF6 

96 

48 



LDA A 

LLN 

GET LENGTH 

0AF8 

BD 

12 

09 


JSR 

FIXVAL 

FIX VALUE 

0AFB 

81 

0E 



CMP A 

#14 

14 OR LESS? 

0AFD 

22 

02 



BHI 

LENTH2 


0AFF 

86 

0F 



LDA A 

#15 

FORCE TO 15 

0B01 

90 

4B 


LENTH2 

SUB A 

LLN 

. SET NEW 

0803 

97 

B4 



STA A 

TLLN . 

SAVE AS TEMP 

0B05 

DE 

DA 


LENT25 

LDX 

BUFPNT 

CHECK POINTER 

0B07 

8C 

15 

E4 


CPX 

#LINBUF 


0B0A 

26 

03 



BNE 

LENTH5 


0B0C 

7E 

14 

14 


JMP 

FIXWD 

GO FIX WIDTH 

0B0F 

39 



LENTH5 

RTS 


RETURN 





* DO NECESSARY 

TABBING 


0B10 

D6 

42 


DOTAB 

LDA B 

COLCNT 

GET COUNT 

0B12 

DE 

80 



LDX 

NXTTAB 

POINT TO TAB 

0B14 

El 

00 



CMP B 

0, X 

COMPARE 

0B16 

24 

05 



BHS 

DOTABcJ 


0818 

96 

Cl 



LDA A 

TFILL \ 

GET FILL CHAR. 

081A 

7E 

07 

0A 


JMP 

FETCH 3 \ 


0B1D 

7F 

00 

82 

D0TAB2 

CLR 

TABFLGl 

CLEAR FLAG 

0820 

7E 

06 

8C 


JMP 

GETCHR 

BACK TO GET CHAR. 





* SET NO SPACE 

. NS 


0823 

97 

73 


NOSPC 

STA A 

NSP 

SET FLAG 

0B25 

39 




RTS 




* RESTORE SPACE MODE . RS 

0826 7F 00 73 RESPC CLR 
0B29 39 RTS 


NSP 


CLEAR FLAG 
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* DEFINE TAB CHARACTER . TC C 


0B2A 

BD 

11 

D8 

TABCH 

JSR 


LDNSKP 

GET TO NEXT CHAR. 

0B2D 

81 

0D 



CMP 

A 

#$D 

IS IT A C. R. ? 

0B2F 

26 

01 



BNE 


TABCH2 


0B31 

4F 




CLR 

A 


CLEAR VALUE 

0B32 

97 

C0 


TABCH2 

STA 

A 

TAB 

SAVE TAB CHAR. 

0B34 

39 




RTS 



RETURN 





* DEFINE TAB FILL CHARACTER . TF C 

0B35 

BD 

11 

D8 

TABFIL 

JSR 


LDNSKP 

GET TO NEXT CHAR. 

0B38 

81 

0D 



CMP 

A 

#*D 

IS IT C. R. ? 

0B3A 

26 

02 



BNE 


TABFI2 


0B3C 

86 

A0 



LDA 

A 

#*A0 

SET UNPAD SPACE 

0B3E 

97 

Cl 


TABFI2 

STA 

A 

TFILL 

SAVE CHAR. 

0B40 

39 




RTS 



RETURN 





* DEFINE TAB COLUMNS 

TA 1 2 3 4 

0B41 

CE 

01 

10 

STAB 

LDX 


ttTABS 

POINT TO TABS 

0B44 

BD 

13 

ED 

STAB2 

JSR 


PUSHX 

SAVE X 

0B47 

BD 

12 

1A 


JSR 


CHKNUM 

CHECK FOR NUMBER 

0B4A 

24 

0E 



BCC 


STAB4 


0B4C 

BD 

13 

FF 


JSR 


PULLX 

RESTORE 

0B4F 

96 

70' 



LDA 

A 

INNUM 

GET NUMBER 

0B51 

A7 

00 



STA 

A 

Q, X 

SAVE IT 

0B53 

08 




INX 



BUMP POINTER 

0B54 

8C 

01 

24 


CPX 


#TABEND 

END OF TABLE? 

0B57 

26 

EB 



BNE 


STAB2 


0B59 

39 




RTS 



RETURN 

0B5A 

BD 

13 

FF 

STAB4 

JSR 


PULLX 


0B5D 

6F 

00 



CLR 


0, X 

CLEAR LAST 

0B5F 

39 




RTS 








* OUTPUT STRING TO TERMINAL . TM STRING 

0B60 

BD 

11 

D8 

TERM 

JSR 


LDNSKP 

GET TO NEXT CHAR. 

0B63 

A6 

00 


TERM2 

LDA 

A 

0, X 

GET CHAR. 

0B65 

81 

0D 



CMP 

A 

#*D 

IS IT C. R. ? 

0B67 

27 

03 



BEQ 


TERM4 


0B69 

08 




INX 



BUMP THE POINTER 

0B6A 

20 

F7 



BRA 


TERM2 


0B6C 

86 

04 


TERM4 

LDA 

A 

#4 

SET UP 4 

0B6E 

A7 

00 



STA 

A 

0, X 

SAVE IT 

0B70 

DE 

E6 



LDX 


CMNPNT 

SET POINTER 

0B72 

7E 

14 

90 


JMP 


PSTRNG 

GO PRINT STRING 





* GET INPUT 

FROM TERMINAL . GI PROMPT 

0B75 

8D 

E9 


GETIN 

BSR 


TERM 

GO PRINT PROMPT 

0B77 

CE 

15 

62 


LDX 


ttQUSTR 

POINT TO STR. 

0B7A 

BD 

14 

92 


JSR 


PDATA 

OUTPUT IT 

0B7D 

BD 

14 

44 


JSR 


GIBUF 

GET INPUT RESPONSE 
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0900 97 9E STfl fl SBFLG SET FLAG 

0B82 39 RTS RETURN 

* SET NEW ENVIRONMENT . EV N 


0B83 

BD 

12 

1R 

SENV 

JSR 


0B86 

24 

08 



BCC 


0B88 

96 

70 



LDfl 

fl 

0B8A 

27 

05 



BEQ 


0B8C 

86 

01 



LDfl 

fl 

0B8E 

20 

01 



BRR 


0B90 

4F 



SENV1 

CLR 

fl 

0B91 

91 

7E 


SENV2 

CMP 

fl 

0B93 

26 

01 



BNE 


0B95 

39 




RTS 


0B96 

97 

7E 


SENV3 

STfl 

fl 

0B98 

96 

42 



LDfl 

fl 

0B9A 

D6 

83 



LDfl 

B 

0B9C 

D7 

42 



STfl 

B 

0B9E 

97 

83 



STfl 

fl 

0BA0 

96 

48 



LDfl 

fl 

0BR2 

D6 

84 



LDfl 

B 

0Bfl4 

97 

84 



STfl 

fl 

0BA6 

D7 

48 



STfl 

B 

0BA8 

96 

4B 



LDfl 

fl 

0Bflfl 

D6 

'9F 



LDfl 

B 

0BAC 

97 

9F 



STfl 

fl 

0BRE 

D7 

49 



STfl 

B 

0BB0 

CE 

00 

C2 


LDX 


0BB3 

R6 

00 


SENV4 

LDfl 

fl 

0BB5 

E6 

01 



LDfl 

B 

0BB7 

R7 

01 



STfl 

fl 

0BB9 

E7 

00 



STfl 

B 

0BBB 

08 




INX 


0BBC 

08 




INX 


0BBD 

8C 

00 

DR 


CPX 


0BC0 

26 

Fl 



BNE 


0BC2 

R6 

00 


SENV6 

LDfl 

fl 

0BC4 

E6 

02 



LDfl 

B 

0BC6 

R7 

02 



STfl 

fl 

0BC8 

E7 

00 



STfl 

B 

0BCR 

R6 

01 



LDfl 

fl 

0BCC 

E6 

03 



LDfl 

B 

0BCE 

R7 

03 



STfl 

fl 

0BD0 

E7 

01 



STfl 

B 

0BD2 

08 




INX 


0BD3 

08 




INX 


0BD4 

08 




INX 


0BD5 

08 




INX 


0BD6 

8C 

00 

E6 


CPX 


0BD9 

26 

E7 



BNE 


0BDB 

CE 

15 

E4 


LDX 


0BDE 

R6 

00 


SENV8 

LDfl 

fl 

0BE0 

E6 

C8 



LDfl 

B 


CHKNUM 

SENV1 

CHECK FOR NUMBER 

INNUM 

SENV2 

GET NUMBER 

#1 

SET UP 1 

SENV2 

CLEAR VALUE 

EV 

SENV3 

PRESENT EV? 


YES, RETURN 

EV 

SET NEW EV 

COLCNT 

C0LCN2 

COLCNT 

C0LCN2 

SAVE COL COUNT 

IND 

IND2 

IND2 

IND 

FIX THE INDENT 

LLN 

DO LINE LENGTH 

LLN2 

LLN2 

LLN 

ttflUTO 

POINT TO BLOCK 

0/ X 

GET VALUE 

1, X 


1, X 

SWAP VALUE 

0, X 

GO TO NEXT 

4BUFPNT 

FINISHED? 

SENV4 

0, X 

2; X 

GET VALUE 

2/ X 

SWAP 

0, X 


1, X 


3/ X 


3, X 


1, X 

BUMP THE POINTER 


4CMNPNT 

FINISHED? 

SENV6 



4LINBUF 

POINT 

TO BUFFER 

0, X 

GET fl 

CHAR. 

£00, X 




€ 

€ 
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0BE2 

R7 

08 



STR R 

200, X 

SWAP FOR NEW 

0BE4 

E7 

00 



STR B 

0, X 


0BE6 

08 




INX 


BUMP TO NEXT 

0BE7 

80 

16 

RC 


CPX 

#LINBU2 

FINISHED? 

0BER 

26 

F2 



BNE 

SENV8 


0BEC 

39 




RTS 


RETURN 

0BED 

R6 

00 


SEHV9 

LDfl fl 

0, X 

GET VALUE 

0BEF 

08 




INX 


BUMP TO NEXT 

0BF0 

RB 

00 


SENV95 

ADD R 

0, X 

ADD IN BIAS 

0BF2 

08 




INX 



0BF3 

3fl 




DEC B 


DEC THE VALUE 

0BF4 

26 

Ffl 



BNE 

SENV95 


0BF6 

39 




RTS 


RETURN 





* SET 

NEW PAGE 

NUMBER 

PN +N 

0BF7 

BD 

12 

1R 

PGNUM 

JSR 

CHKNUM 

CHECK FOR NUMBER 

0BFR 

24 

07 



BCC 

PGNUM4 


0BFC 

96 

74 



LDfl fl 

PGN 

GET VALUE 

0BFE 

BD 

12 

09 


JSR. 

FIXVflL 

GO FIX VALUE 

0C01 

97 

74 



STR fl 

PGN 

SAVE NEW 

0003 

39 



PGNUM4 

RTS 


RETURN 





* SET 

DOUBLE HEIGHT . DH 


0C04 

BD 

09 

2E 

DUBH 

JSR 

FLUSH 

FLUSH BUFFER 

0C07 

86 

12 


DUBH1 

LDfl R 

#$12 

SET UP CODE 

0C09 

70 

00 

4D 


INC 

LINCNT 

BUMP LINE COUNT 

0C0C 

7E 

14 

9F 

DUBH2 

JMP 

OUTCHR 

OUTPUT CHARACTER 





♦ SET 

DOUBLE WIDTH . DW 


0C0F 

BD 

09 

2E 

DUBW 

JSR 

FLUSH 

FLUSH BUFFER 

0C12 

86 

0E 



LDfl fl 

#$0E 

SET UP CODE 

0C14 

97 

8E 



STfl fl 

DWFLG 

SET FLAG 

0016 

20 

F4 



BRA 

DUBH2 






* SET 

DOUBLE BOTH . DB 


0018 

BD 

09 

2E 

DUBB 

JSR 

FLUSH 

FLUSH BUFFER 

0C1B 

86 

0E 



LDfl fl 

#*0E 

SET UP CODE 

0C1D 

97 

8E 



STfl fl 

DWFLG 

SET FLAG 

0C1F 

BD 

14 

9F 


JSR 

OUTCHR 

OUTPUT CHARACTER 

0022 

20 

E3 



BRfl 

DUBH1 






* CENTER N LINES . CE +N 


0024 

BD 

09 

2fl 

CENTER 

JSR 

FLUSHB 

FLUSH BUFFER 

0027 

BD 

12 

1R 


JSR 

CHKNUM 

CHECK FOR NUMBER 

0C2R 

24 

0B 



BCC 

CENTE2 

, 

0020 

96 

D4 



LDfl fl 

CNTFLG 

GET OLD COUNT 

0C2E 

BD 

12 

09 


JSR 

FIXVflL 

FIX VALUE 

0031 

97 

D4 



STfl fl 

CNTFLG 

SAVE NEW 

0033 

27 

23 



BEQ 

PAGEL4 
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0C35 

20 

04 



BRA 

CENTE4 


0C3? 

86 

01 


CENTE2 

LDA A 

#1 

DEFAULT TO 1 

0C39 

97 

D4 



STA A 

CNTFLG 

SAVE COUNT 

0C3B 

96 

08 


CENTE4 

LDA A 

FILFLG 

GET FLAG 

0C3D 

97 

6E 



STA A 

TFILF 

SAVE AS TEMP 

0C3F 

86 

FF 



LDA A 

#$FF 


0C41 

97 

08 



STA A 

FILFLG 

FORCE FILL MODE 

0C43 

39 




RTS 


RETURN 





* SET PAGE LENGTH . PL 

+N 

0C44 

BD 

12 

lfl 

PflGEL 

JSR 

CHKNUM 

CHECK FOR NUMBER 

0C47 

25 

04 



BCS 

PAGELl 


0049 

86 

42 



LDA A 

#66 

DEFAULT TO 66 

0C4B 

20 

09 



BRA 

PAGEL2 


0C4D 

96 

4F 


PflGELl 

LDA A 

PGL 

GET LAST VALUE 

0C4F 

BD 

12 

09 


JSR 

FIXVAL 

FIX VALUE 

0C52 

4D 




TST A 



0C53 

26 

01 



BNE 

PAGEL2 


0C55 

40 




INC A 


BUMP BV ONE 

0C56 

97 

4F 


PAGEL2 

STA A 

PGL 

SAVE NEW 

0C58 

39 



PAGEL4 

RTS 


RETURN 





* SET SINGLE INDENT .! 

51 +N 

0C59 

BD 

09 

2A 

SIND 

JSR 

FLUSHB 

FLUSH BUFFER 

0C5C 

BD 

12 

lfl 


JSR 

CHKNUM 

CHECK FOR NUMBER 

0C5F 

24 

F7 



BOO 

PAGEL4 


0061 

96 

70 



LDA A 

SIN 

GET OLD VALUE 

0C63 

BD 

12 

09 


JSR 

FIXVAL 

GO FIX VALUE 

0066 

90 

70 



SUB A 

SIN 


0068 

97 

B2 



STA A 

TSIN 

SAVE AS TEMP 

0C6fl 

7E 

0B 

05 


JMP 

LENT25 






* SET CAPS MODE . CP 


0C6D 

86 

0F 


STCAP 

LDA A 

#$F 

SET FLAG 

0C6F 

97 

77 



STA A 

DOCAP 


0071 

39 




RTS 






• 

* CLEAR 

CAPS MODE . NC 


0072 

7F 

00 

77 

NOCAP 

CLR 

DOCAP 

CLEAR FLAG 

0075 

39 




RTS 







* PUT IN INDENT FIELD 

. PI STRING 

0076 

BD 

09 

2fl 

PTIND 

JSR 

FLUSHB 

FLUSH BUFFER 

0079 

BD 

11 

D8 


JSR 

LDNSKP 

GET TO NEXT CHAR. 

0C7C 

D6 

48 



LDA B 

IND 

GET INDENT 

0C7E 

27 

2A 



BEQ 

PTIND5 


0080 

D7 

69 



STA B 

NOCR 

SET FLAG 

0082 

5F 




CLR B 



0083 

37 



PTIND2 

PSH B 
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0C84 

BD 

06 

8C 


JSR 


GETCHR 

GO GET CHAR. 

0C87 

33 




PUL 

B 



0C88 

81 

0D 



CMP 

fl 

#$D 

CHECK IF C. R. ? 

0C8fi 

27 

0C 



BEQ 


PTIND3 


0C8C 

37 




PSH 

B 



0C8D 

BD 

14 

9F 


JSR 


OUTCHR 

GO OUTPUT CHAR. 

0C90 

33 




PUL 

B 



0C91 

5C 




INC 

B 


BUMP COUNT 

0C92 

D1 

48 



CMP 

B 

IND 

FINISHED? 

0C94 

24 

0E 



BHS 


PTIND4 


0C96 

20 

EB 



BRR 


PTIND2 


0C98 

86 

20 


PTIND3 

LDR 

R 

#$20 

SET UP SPACE 

0C9A 

37 




PSH 

B 



0C9B 

BD 

14 

9F 


JSR 


OUTCHR 

OUTPUT IT 

0C9E 

33 




PUL 

B 



0C9F 

5C 




INC 

B 


BUMP COUNT 

0CA0 

D1 

48 



CMP 

B 

IND 

FINISHED? 

0CA2 

25 

F4 



BLO 


PTIND3 


0CA4 

5C 



PTIND4 

INC 

B 


BUMP COUNT 

0CR5 

D7 

7B 



STfl 

B 

PTFL 

SET FLAG 

0CR7 

7F 

00 

69 


CLR 


NOCR 


0CRR 

39 



PTIND5 

RTS 



RETURN 


* SET NOFILL MODE . NF 


0CRB 

BD 

09' 

2A 

NOFILL 

JSR 

FLUSHB 

FLUSH BUFFER 

0CAE 

7F 

00 

C8 


CLR 

FILFLG 

CLEAR FLAG 

0CB1 

39 




RTS 







* SET 1 

FILL MODE . FI 


0CB2 

BD 

09 

2A 

FILL 

JSR 

FLUSHB 

FLUSH BUFFER 

0CB5 

7C 

00 

C8 


INC 

FILFLG 

SET FLAG 

0CB8 

39 




RTS 







* REPEAT COMMAND . RP 


0CB9 

BD 

09 

2R 

RPT 

JSR 

FLUSHB 

FLUSH BUFFER 

0CBC 

7C 

00 

B5 


INC 

SUPL 

SET FLAG 

0CBF 

BD 

0A 

67 


JSR 

PAGE 

GO PAGE 

0CC2 

BD 

14 

E5 

i 

JSR 

RWND 

REWIND FILE 

0CC5 

8E 

01 

FF 


LDS 

#STACK 

*** STACK REF. 

0CC8 

4F 




CLR A 



0CC9 

CE 

00 

5A 


LDX 

#GDNUM 

CLEAR SPACE 

0CCC 

BD 

02 

AC 


JSR 

CLRSP2 


0CCF 

7E 

02 

C0 


JMP 

INIT 

GO INIT. 





* STOP 

COMMAND 

. ST 


0CD2 

BD 

09 

2A 

STOP 

JSR 

FLUSHB 

FLUSH BUFFER 

0CD5 

CE 

15 

58 


LDX 

#3TPSTR 

POINT TO STRING 

0CD8 

BD 

14 

90 

STOP1 

JSR 

PSTRNG 

OUTPUT IT 

0CDB 

BD 

02 

06 


JSR 

INCH 

GO GET CHAR. 

0CDE 

81 

53 



CMP A 

#'S 

IS IT 'S'? 
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IL 


IL 


0CE0 

26 

03 



BNE 

ST0P2 


0CE2 

7E 

09 

53 


JMP 

FINIS4 

GO FINISH 

0CE5 

39 



STOP2 

RTS 


RETURN 





* NEED 

N LINES 

. NL N 


0CE6 

BD 

12 

1A 

NEDL 

JSR 

CHKNUM 

CHECK FOR NUMBER 

0CE9 

25 

03 



BCS 

NEDL1 


0CEB 

7 C 

00 

70 


INC 

INNUM 

BUMP BV 1 

0CEE 

8D 

05 


NEDL1 

BSR 

FNTR 

GO FIND TRflP 

0CF0 

91 

70 


NEDL2 

CMP A 

INNUM 

COMPARE 

0CF2 

25 

4fl 



BLO 

SAVS25 


0CF4 

39 



NEDL4 

RTS 




* FIND THE NEXT TRflP 


0CF5 

86 

FF 


FNTR 

LDA 

A 

#$FF 

SET MIN DISTANCE 

0CF7 

97 

7D 



STA 

A 

MINDIS 


0CF9 

CE 

17 

D8 


LDX 


STRAPS 

POINT TO TRAPS 

0CFC 

D6 

4D 


FNTR2 

LDA 

B 

LINCNT 

GET COUNT 

0CFE 

El 

00 



CMP 

B 

0, X 

CHECK LOC. 

0D00 

24 

0F 



BHS 


FNTR4 


0D02 

A6 

00 



LDA 

A 

0, X 

GET DISTANCE 

0D04 

81 

FF 



CMP 

A 

#$FF 


0D06 

27 

11 



BEQ 


FNTR5 


0D08 

10 




SBA 



SWAP REGISTERS 

0D09 

91 

7D 



CMP 

A 

MINDIS 

MIN DISTANCE? 

0D0B 

24 

04 



BHS 


FNTR4 


0D0D 

97 

7D 



STA 

A 

MINDIS 

SAVE NEW 

0D0F 

DF 

85 



STX 


NXTTRP 

SAVE POINTER 

0D11 

08 



FNTR4 

INX 



BUMP THE POINTER 

0D12 

08 




INX 




0D13 

08 




INX 




0D14 

8C 

18 

08 


CPX 


#TRPEND 

FINISHED? 

0D17 

26 

E3 



BNE 


FNTR2 


0D19 

D6 

7D 


FNTR5 

LDA 

B 

MINDIS 

GET DISTANCE 

0D1B 

Cl 

FF 



CMP 

B 

#*FF 


0D1D 

26 

07 



BNE 


FNTR6 


0D1F 

96 

4F 



LDA 

A 

PGL 

SET UP PAGE LEN. 

0D21 

90 

4D 



SUB 

A 

LINCNT 


0D23 

4C 




INC 

A 


FIX VALUE 

0D24 

5F 




CLR 

B 



0D25 

39 




RTS 



RETURN 

0D26 

E6 

00 


FNTR6 

LDA 

B 

0, X 


0D28 

96 

7D 



LDA 

A 

MINDIS 

GET DISTANCE 

0D2A 

DE 

85 



LDX 


NXTTRP 

POINT TO TRAP 

0D2C 

39 



1 

RTS 



RETURN 





* SAVE 

SPACE 

ROUTINE . 

SV N 

0D2D 

7F 

00 

87 

SAVS 

CLR 


SVDSPC 

CLEAR COUNT 

0D30 

BD 

12 

1A 


JSR 


CHKNUM 

CHECK FOR NUMBER 

0D33 

25 

03 



BCS 


SAVS1 


0D35 

7C 

00 

70 


INC 


INNUM 

GET COUNT 
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0D38 

8 D 

BB 


SAVS1 

BSR 


FNTR 

FIND TRAP 

0D3A 

91 

70 


SAVS2 

CMP 

fl 

INNUM 


0D3C 

25 

06 



BLO 


SRVS4 


0D3E 

7F 

00 

73 

SAVS25 

CLR 


NSP 

CLEAR NO SPACE 

0D41 

7E 

0 fl 

5E 


JMP 


SPRCE4 

GO DO SPACE 

0D44 

96 

70 


SRVS4 

LDR 

fl 

INNUM 

GET COUNT 

0D46 

97 

87 



STR 

fl 

SVDSPC 

SAVE COUNT 

0D48 

39 



SRVS5 

RTS 



RETURN 





* OUTPUT SAVED 

SPACE . OS 

0D49 

96 

87 


OUTSV 

LDR 

R 

SVDSPC 

GET REMEMBERED COUNT 

0D4B 

27 

FB 



BEG 


SRVS5 


0D4D 

7F 

00 

87 


CLR 


SVDSPC 

CLEAR COUNT 

0D50 

20 

EC 



BRR 


SRVS25 

OUTPUT SPACE 





* RT LINE N 

ROUTINE . RT 

-N 

0D52 

BD 

12 

lfl 

RTL 

JSR 


CHKNUM 

CHECK FOR NUMBER 

0D55 

24 

28 



BCC 


RTL35 


0D57 

BD 

11 

06 


JSR 


TSTNEG 

IS IT NEGATIVE? 

0D5R 

BD 

0F 

8 fl 


JSR 


GTNRM 

GET NAME 

0D5D 

96 

4F 



LDR 

R 

PGL 

GET PAGE LEN. 

0D5F 

4C 




INC 

fl 



0D60 

BD 

12 

09 


JSR 


FIXVRL 

FIX THE VALUE 

0D63 

4D 




TST 

fl 



0D64 

26 

01 



BNE 


RTL1 


0D66 

4C 




INC 

R 


BUMP BV ONE 

0D67 

CE 

17 

D8 

RTL1 

LDX 


#TRRPS 

POINT TO TRAPS 

0D6A 

A1 

00 


RTL2 

CMP 

fl 

0, X 

COMPARE 

0D6C 

27 

12 



BEQ 


RTL4 


0D6E 

8 D 

27 



BSR 


INTRP 


0D70 

26 

F8 



BNE 


RTL2 


0D72 

CE 

17 

D8 


LDX 


#TRAPS 

POINT TO TRAPS 

0D75 

C6 

FF 



LDR 

B 

#$FF 

SET REFERENCE 

0D77 

El 

00 


RTL3 

CMP 

B 

0, X 


0D79 

27 

14 



BEQ 


RTL5 


0D7B 

8 D 

lfl 



BSR 


INTRP 


0D7D 

26 

F8 



BNE 


RTL3 


0D7F 

39 



RTL35 

RTS 



RETURN 

0D80 

D6 

R0 


RTL4 

LDR 

B 

MRCNRM 

GET NAME 

0D82 

26 

04 



BNE 


RTL45 


0D84 

5fl 




DEC 

B 


DEC THE COUNT 

0D85 

E7 

00 



STR 

B 

0, X 

SAVE POSITION 

0D87 

39 




RTS 



RETURN 

0D88 

96 

R1 


RTL45 

LDR 

fl 

MRCNRM+1 

GET NAME 

0 D8fl 

E7 

01 



STR 

B 

1, X 

SAVE CHAR. 

0D8C 

A7 

02 



STR 

R 

eL> X 


0D8E 

39 




RTS 



RETURN 

0D8F 

D6 

R0 


RTL5 

LDR 

B 

MRCNRM 

GET NAME 

0D91 

27 

EC 



BEG 


ATL35 


0D93 

87 

00 



STR 

R 

0, X 

SAVE CHARACTER 

0D95 

20 

FI 



BRR 


RTL45 
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TRAP POINTER 


* 




0D97 

08 



INTRP 

INX 


FIX POINTER 

0D98 

08 




INX 




0D99 

08 




INX 




0D9A 

8 C 

18 

08 


CPX 


#TRPEND 

FINISHED? 

0D9D 

39 



i 

RTS 








* DEFINE MACRO 



0D9E 

96 

66 


DEFMRC 

LDR 

fl 

MBFLG 

CHECK DEF FLAG 

0DA0 

26 

39 



BNE 


DEFMR5 


0DA2 

BD 

0E 

4F 


JSR 


OPMRC 

GO OPEN MACRO 

0DA5 

27 

34 


DEFMR2 

BEQ 


DEFMR5 


0DR7 

7C 

00 

8 F 


INC 


DFMFLG 

SET DEF FLAG 

0DAA 

7F 

00 

65 


CLR 


CMFLG 

CLEAR COMMAND 

0 DflD 

BD 

06 

89 

DEFMA3 

JSR 


CLRGET 

GO GET CHARACTER 

0 DB0 

81 

2E 



CMP 

A 


IS IT A PERIOD? 

0DB2 

26 

0E 



BNE 


DEFM35 


0DB4 

BD 

06 

89 


JSR 


CLRGET 

GET NEXT CHAR. 

0DB7 

81 

2E 



CMP 

R 


IS IT A PERIOD? 

0DB9 

27 

13 



BEG! 


DEFMR4 


0DBB 

36 




PSH 

fl 


SAVE CHAR 

0DBC 

86 

2E 



LDR 

fl 


SET UP PERIOD 

0DBE 

BD 

0E 

RE 


JSR 


OUTMRC 

OUTPUT TO MACRO 

0DC1 

32 


• 


PUL 

A 


RESTORE CHAR 

0DC2 

BD 

0E 

RE 

DEFM35 

JSR 


OUTMRC 

OUTPUT TO MACRO 

0DC5 

81 

0D 



CMP 

R 

#*D 

IS IT A C. R. ? 

0DC7 

27 

E4 



BEQ 


DEFMR3 


0DC9 

BD 

06 

89 


JSR 


CLRGET 

GET NEXT CHAR. 

0DCC 

20 

F4 



BRR 


DEFM35 


0DCE 

BD 

0E 

F8 

DEFMR4 

JSR 


CLSMRC 

CLOSE MACRO 

0 DD1 

BD 

06 

89 

DEFM45 

JSR 


CLRGET 

GET CHARACTER 

0DD4 

81 

0D 



CMP 

fl 

#*D 

IS IT A C. R. ? 

0DD6 

26 

F9 



BNE 


DEFM45 


0DD8 

7 F 

00 

8 F 


CLR 


DFMFLG 

CLEAR DEF FLAG 

0DDB 

39 



DEFMR5 

RTS 



RETURN 





* APPEND TO 

R 1 

MACRO . AP 

XX 

0DDC 

96 

66 


APMRC 

LDR 

R 

MBFLG 

CHECK FLAG 

0DDE 

26 

FB 



BNE 


DEFMR5 


0DE0 

BD 

0E 

82 


JSR 


OPAPP 

OPEN FOR APPEND 

0DE3 

20 

C0 



BRR 


DEFMR2 






* REMOVE MACRO 

. RM XX 


0DE5 

BD 

0F 

8 R 

REMMRC 

JSR 


GTNAM 

GO GET NAME 

0DE8 

BD 

0F 

35 


JSR 


FNDMRC 

FIND MACRO 

0DEB 

27 

01 



BEQ 


REMMR4 

, 

0DED 

39 




RTS 



RETURN 

0DEE 

DF 

A2 


REMMR4 

STX 


MRCTMP 

SAVE POINTER 

0DF0 

EE 

02 



LDX 


2> X 

GET ADDRESS 

0 DF2 

BD 

0F 

64 


JSR 


CHKLST 

LAST MACRO? 


€S 

€ 
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0DF5 

24 

14 



BCC 


REMMR6 


0DF7 

DE 

R2 



LDX 


MRCTMP 

GET POINTER 

0DF9 

A6 

02 



LDA 

A 

2/ X 

GET ADDRESS 

0DFB 

E6 

03 



LDA 

B 

3/ X 


0DFD 

DE 

R4 



LDX 


LSTRVL 

SET LAST AVAIL 

0DFF 

R7 

00 



STR 

R 

0, X 


0 E01 

E7 

01 



STR 

B 

1, X 


0E03 

DE 

RC 



LDX 


NXTMRC 

SET UP NXT MAC 

0E05 

DF 

R4 



STX 


LSTRVL 

SAVE RS LAST AVAIL 

0E07 

DE 

R2 



LDX 


MRCTMP 


OE09 

28 

0R 



BRR 


REMNRM 


0E0B 

DE 

R2 


REMMA6 

LDX 


MRCTMP 

SET UP POINTER 

0E0D 

A6 

02 



LDR 

A 

2, X 

GET ADDRESS 

0E0F 

E6 

03 



LDR 

e 

3, X 


0E11 

97 

R6 



STR 

fl 

FSTflVL 

SET FIRST AVAIL 

0E13 

D7 

R7 



STR 

B 

FSTflVL+1 






* REMOVE MACRO 

NAME FROM 

TABLE 

0E15 

E6 

04 


REMNRM 

LDR 

B 

Aj X 

MOVE CHAR DOWN 

0E17 

E7 

00 



STR 

B 

0, X 


0E19 

08 




INX 



BUMP THE POINTER 

0E1R 

9C 

Ffl 



CPX 


MRCEND 

FINISHED? 

0E1C 

26 

F7 



BNE 


REMNRM 


0E1E 

09 




DEX 



DEC THE POINTER 

0E1F 

09 

• 



DEX 




0E20 

09 




DEX 




0E21 

09 




DEX 




0E22 

DF 

Ffl 



STX 


MRCEND 

SET NEW END 

0E24 

39 




RTS 



RETURN 





* DIVERT DI 

XX 


0E25 

96 

91 


DIVERT 

LDR 

fl 

DIVFLG 

CHECK DIV FLAG 

0E27 

27 

0D 



BEQ 


DIVER2 


0E29 

7C 

00 

92 

DIVER0 

INC 


DIVFL.2 

SET MARKER 

0E2C 

7E 

0E 

F8 


JMP 


CLSMRC 

CLOSE MACRO 

0E2F 

7F 

00 

91 

DIVER1 

CLR 


DIVFLG 

CLEAR FLAGS 

0E32 

7F 

00 

92 


CLR 


DIVFL2 


0E35 

39 




RTS 



RETURN 

0E36 

70 

00 

92 

DIVER2 

INC 


DIVFL2 

SET MARKER 

0E39 

8 D 

14 



BSR 


OPMAC 

GO OPEN MACRO 

0E3B 

27 

F2 


DIVER4 

BEQ 


DIVEP1 


0E3D 

70 

00 

91 


INC 


DIVFLG 

SET FLAG 

0E40 

7F 

00 

55 


CLR 


LDIV 

CLEAR COUNT 

0E43 

39 




RTS 



RETURN 





* DIVERT APPEND . DR XX 


0E44 

96 

91 


DIVRPP 

LDR 

R 

DIVFLG 

CHECK DIV FLAG 

0E46 

26 

El 



BNE 


DIVER0 


0E48 

7C 

00 

92 


INC 


DIVFL2 

SET MARKER 

0E4B 

8 D 

35 



BSR 


OPRPP 

OPEN FOR APPEND 

0E4D 

20 

EC 



BRR 


DIVER4 












\ 
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* OPEN A MACRO SPACE 


0E4F 

BD 

0F 8A 

OPMAC 

JSR 


GTNAM 

0E52 

96 

A0 


LDA 

A 

MACNAM 

0E54 

26 

01 


BNE 


0PMAC2 

0E56 

39 



RTS 



0E5? 

BD 

0F 35 

0PMAC2 

JSR 


FNDMAC 

0E5A 

26 

04 


BNE 


0PMAC4 

0E5C 

8 D 

90 


BSR 


REMMA4 

0E5E 

20 

F7 


BRA 


0PMAC2 

0E60 

96 

A0 

0PMAC4 

LDA 

A 

MACNAM 

0E62 

D6 

A1 


LDA 

B 

MACNAM+1 

0E64 

8 C 

19 F£ 


CPX 


#MTEND 

0E67 

26 

03 


BNE 


0PMAC5 

0E69 

7E 

0 E E0 


JMP 


SVSERR 

0E6C 

A7 

00 

0PMAC5 

STA 

A 

0 , X 

0 E6E 

E7 

01 


STA 

B 

1, X 

0E70 

96 

A6 


LDA 

A 

FSTAVL 

0E72 

D6 

A7 


LDA 

B 

FSTAVL+1 

0E74 

A7 

02 


STA 

A 

2/ X 

0E76 

E7 

03 


STA 

B 

3, X 

0E78 

08 



INX 



0E79 

08 



INX 



0E7A 

08 



INX 



0E7B 

08 

* 


INX 



0E7C 

DF 

FA 


STX 


MACEND 

0E7E 

DE 

A6 


LDX 


FSTAVL 

0E80 

20 

IE 


BRA 


SAVSX 




+ OPEN 

MACRO FOR APPEND 

0E82 

BD 

0 F 8A 

OPAPP 

JSR 


GTNAM 

0E85 

96 

A0 


LDA 

A 

MACNAM 

0E87 

26 

01 


BNE 


OPAPP2 

0E89 

39 



RTS 



0E8A 

BD 

0F 35 

0PAPP2 

JSR 


FNDMAC 

0E8D 

26 

D1 


BNE 


0PMAC4 

0E8F 

EE 

02 

0PAPP4 

LDX 


£j X 

0E91 

BD 

0F 64 


JSR 


CHKLST 

0E94 

24 

0A 


BCC 


SAVSX 

0E96 

96 

A6 ' 


LDA 

A 

FSTAVL 

0E98 

D6 

A7 


LDA 

B 

FSTAVL+1 

0E9A 

A7 

00 


STA 

A 

0, X 

0E9C 

E7 

01 


STA 

B 

1, X 

0E9E 

DE 

A6 


LDX 


FSTAVL 




* SAVE 

SPECIAL 

INDEX 

0EA0 

7D 

00 92 

SAVSX 

TST 


DIVFL2 

0EA3 

27 

06 


BEG 


SAV3X2 

0EA5 

7F 

08 92 


CLR 


DIVFL2 

0EA8 

DF 

AE 


STX 


NXTOUT 

0EAA 

39 



RTS 




GET MACRO NAME 

PRESENT? 

LOOK FOR MACRO 

REMOVE OLD VERSION 
OPEN MACRO 
GET NAME 

END OF TABLE? 

REPORT ERROR 
SAVE NAME 

GET FIRST AVAIL 

SAVE IN TABLE 

BUMP THE POINTER 

SET NEW END 
GET LAST AVAIL 

GET MACRO NAME 

NO NAME 
FIND MACRO 

GET LOCATION 

IS IT THE LAST ONE? 

GET FIRST AVAIL 

SET NEW 

TEST.MARKER 

CLEAR MARKER 
SAVE POINTER 
RETURN 
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0EflB 

DF 

8C 


S8VSX2 

STX 

NXTM8C 

S8VE POINTER 

0E8D 

39 




RTS 







* OUTPUT TO M8CR0 SP8CE 


0E8E 

DF 

B0 


0UTM8C 

STX 

XM8C 

S8VE POINTER 

0EB0 

7D 

00 

92 


TST 

DIVFL2 

TEST M8RKER 

0EB3 

27 

04 



BEQ 

OUTM80 


0EB5 

DE 

8E 



LDX 

NXTOUT 

SET POINTER 

0EB7 

20 

02 



BR8 

0UTM81 


0EB9 

DE 

8C 


OUTMR0 

LDX 

NXTM8C 


0EBB 

6D 

00 


0UTM81 

TST 

0, X 

TEST IF END 

0EBD 

27 

18 



BEQ 

0UTM84 


0EBF 

81 

IF 



CMP 8 

#$1F 

IS IT *1F? 

0EC1 

22 

0C 



BHI 

0UTM18 


0EC3 

81 

0D 



CMP 8 

#$D 

IS IT C. R ? 

0EC5 

26 

0B 


» 

BNE 

0UTM83 


0EC7 

7D 

00 

92 


TST 

DIVFL2 

TEST M8RKER 

0ECfl 

27 

03 



BEQ 

0UTM18 


0ECC 

7C 

00 

55 


INC 

LDIV 

BUMP DIV LINE CNT 

0ECF 

87 

00 


0UTM18 

ST8 8 

2, X 

PUT CH8R8CTER 

0ED1 

08 



0UTM82 

IHX 


BUMP THE POINTER 

0ED2 

8D 

CC 


0UTM83 

BSR 

SRVSX 

GO S8VE X 

0ED4 

DE 

B0 



LDX 

XM8C 

RESTORE POINTER 

0ED6 

39 




RTS 



0ED7 

08 

* 


0UTM84 

INX 


BUMP THE POINTER 

0ED8 

9C 

84 



CPX 

LST8VL 

L8ST 8VRIL? 

0ED8 

27 

04 



BEQ 

SVSERR 

ERROR? 

0EDC 

EE 

00 



LDX 

0j X 

GET POINTER 

BEDE 

20 

DB 



BR8 

0UTM81 






* REPORT SVSTEM M8CR0 ERROR 

0EE0 

7E 

08 

4E 

SVSERR 

JMP 

M8C0VF 

REPORT OVERFLOW 





* INPUT 

TO M8CR0 SP8CE 


0EE3 

DE 

67 


INM8C 

LDX 

MBFPNT 

SET UP POINTER 

0EE5 

86 

00 


INM8C2 

LD8 8 

2, X 

GET THE CH8R8CTER 

0EE7 

08 




INX 


BUMP THE POINTER 

0EE8 

DF 

67 



STX 

MBFPNT 

S8VE IT 

0EE8 

4D 




TST 8 


TEST THE CH8R. 

0EEB 

26 

06 



BNE 

INM8C4 


0EED 

EE 

00 



LDX 

2j X 

GET LINK 

0EEF 

26 

F4 



BNE 

INM8C2 


0EF1 

20 

04 



BR8 

INM8C5 


0EF3 

81 

FF 


INM8C4 

CMP 8 

#$FF 

IS CH8R FF? 

0EF5 

27 

EE 



BEQ 

INM8C2 

• 

0EF7 

39 



INM8C5 

RTS 


RETURN 





* CLOSE 

M8CR0 

SP8CE 


0EF8 

7D 

00 

92 

CLSM8C 

TST 

DIVFL2 

TEST M8RKER 

0EFB 

27 

09 



BEQ 

CLSM82 
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0EFD 

4F 




CLR R 



0EFE 

97 

91 



STR fl 

DIVFLG 

CLEAR FLAG 

0F00 

97 

92 



STR R 

DIVFL2 


0F02 

DE 

RE 



LDX 

NXTOUT 

SET POINTER 

0F04 

20 

02 



BRR 

CLSMR3 


0F06 

DE 

RC 


CLSMR2 

LDX 

NXTMRC 

POINT TO NEXT MRC 

0F08 

6D 

00 


CLSMA3 

TST 

0> X 

TEST CHARACTER 

0F0fl 

27 

14 



BEQ 

CLSMR4 


0F0C 

6D 

01 



TST 

1, X 

TEST NEXT 

0F0E 

27 

17 



BEQ 

CLSMR5 


0F10 

6D 

02 



TST 

e, X 

ONE MORE 

0F12 

27 

lfl 



BEQ 

CLSMR6 


0F14 

6F 

00 



CLR 

0, X 

CLEAR OUT SPACE 

0F16 

6F 

01 



CLR 

1, X 


0F18 

6F 

02 



CLR 

cL> X 


0Flfl 

08 




INX 


FIX POINTER 

0F1B 

08 




INX 



0F1C 

08 




INX 



0F1D 

DF 

R6 



STX 

FSTRVL 

SET FIRST AVAIL 

0F1F 

39 




RTS 


RETURN 

0F20 

EE 

01 


CLSMR4 

LDX 

1, X 

GET LINK 

0F22 

26 

E4 



BNE 

CLSMR3 


0F24 

7E 

0E 

E0 


JMP 

SVSERR 

REPORT MACRO ERROR 

0F2? 

86 

FF 


CLSMR5 

LDR fl 

#$FF 

SET UP FF 

0F29 

R7 

00 



STR fl 

0, X 

SAVE IT 

0F2B 

08 

* 



INX 



0F2C 

20 

F2 



BRR 

CLSMR4 


0F2E 

86 

FF 


CLSMR6 

LDR R 

#$FF 

SET UP FF 

0F30 

R7 

00 



STR fl 

0, X 

SAVE IT 

0F32 

08 




INX 


FIX POINTER 

0F33 

20 

F2 



BRR 

CLSMR5 






* FIND 

MRCRO 



0F35 

96 

R0 


FNDMRC 

LDR R 

MRCNRM 

CHECK NAME 

0F37 

27 

17 



BEQ 

FNDMR4 


0F39 

D6 

fll 



LDR B 

MRCNRM+1 

GET NAME 

0F3B 

CE 

19 

72 


LDX 

#MRCTBL 

POINT TO TABLE 

0F3E 

9C 

Ffl 


FNDMfll 

CF'X 

MfiCEND 

FINISHED? 

0F40 

27 

0E 



BEQ 

FNDMR4 


0F42 

A1 

00 



CMP R 

0.- X 

TEST 1ST CHAR. 

0F44 

26 

04 

• 


BNE 

FNDMR2 


0F46 

El 

01 



CMP B 

1, X 

TEST 2ND CHAR. 

0F48 

27 

08 



BEQ 

FNDMR6 


0F4A 

08 



FNDMR2 

INX 


FIX POINTER 

0F4B 

08 




INX 



0F4C 

08 




INX 



0F4D 

08 




INX 



0F4E 

20 

EE 



BRR 

FNDMfll 

REPEAT 

0F50 

DE 

FR 


FNDMR4 

LDX 

MRCEND 

SET POINTER 

0F52 

39 



FNDMR6 

RTS 


RETURN 





* FIND 

LAST MACRO ENTRV 
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0F53 

A6 

00 


FNDLST 

LDR 

A 

Qj X 

GET CHARACTER 

0F55 

27 

03 



BEQ 


FNDLS2 

IS IT ZERO? 

0F57 

08 




INX 



GO TO NEXT 

0F58 

20 

F9 



BRR 


FNDLST 


0F5fl 

08 



FNDLS2 

INX 



BUMP POINTER 

0F5B 

DF 

RC 



STX 


NXTMRC 

SAVE POSITION 

0F5D 

EE 

00 



LDX 


0, X 

PICK UP LINK 

0F5F 

26 

F2 



BNE 


FNDLST 


0F61 

DE 

RC 



LDX 


NXTMRC 

GET NEXT LOC. 

0F63 

39 




RTS 



RETURN 





* CHECK 

LAST 

MACRO ENTRV 


8F64 

8D 

ED 


CHKLST 

BSR 


FNDLST 

FIND LAST ENTRV 

0F66 

08 




INX 



FIX POINTER ■ 

0F67 

08 




INX 




0F68 

90 

R6 



CPX 


FSTAVL 

IS IT FIRST? 

0F6A 

27 

04 



BEQ 


CHKLS2 


0F6C 

DE 

RC 



LDX 


NXTMRC 

GET NEXT 

0F6E 

0D 




SEC 




0F6F 

39 




RTS 



RETURN 

0F70 

09 



CHKLS2 

DEX 



BACK UP 

0F71 

09 




DEX 




0F72 

09 




DEX 




0F73 

86 

FF 



LDR 

A 

#SFF 

SET UP FF 

0F75 

R7 

00- 



STA 

A 

0/ X 

PUT CHARACTER 

0F77 

R7 

01 



STA 

A 

1, X 


0F79 

R7 

02 



STA 

A 

2, X 


0F7B 

0C 




CLC 




0F7C 

39 




RTS 



RETURN 

! 




* END MACRO 

EXECUTION 


0F7D 

96 

8B 


MCEND 

LDR 

A 

MRCCNT 

GET COUNT 

0F7F 

27 

06 



BEQ 


MCEND2 


0F81 

7F 

00 

66 


CLR 


MBFLG 

CLEAR FLAG 

0F84 

7C 

00 

88 


INC 


FINMAC 

SET FINISHED 

0F87 

7E 

08 

57 

MCEND2 

JMP 


FINCM 

GO FINISH 

•! 

i 




* GET TWO CHARACTER NAME 


0F8R 

BD 

11 

D3 

GTNAM 

JSR 


LDNSKP 

GET TO NEXT 

0F8D 

BD 

11 

E6 


JSR 


CLSFV 

CLASSIFV IT 

0F90 

Cl 

02 



CMP 

B 

#2 


0F92 

26 

1C 



BNE 


GTNA6 


0F94 

36 




PSH 

A 


SAVE CHARACTER 

0F95 

08 




INX 



FIX THE POINTER 

0F96 

R6 

00 



LDR 

A 

0, X 

GET CHARACTER 

0F98 

BD 

11 

E6 


JSR 


CLSFV 

GO CLASSIFV ■ 

0F9B 

Cl 

02 



CMP 

B 

#2 


0F9D 

33 




PUL 

B 


RESTORE CHARACTER 

0F9E 

26 

10 



BNE 


GTNR6 


0FR0 

08 




INX 



ADJUST POINTER 

0FR1 

DF 

E6 



STX 


CMNPNT 

SAVE IT 
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0FA3 

Cl 

5F 



CMP 

B 

#$5F 

LONER CASE? 

0FA5 

23 

04 



BLS 


GTNA4 


0FA7 

80 

20 



SUB 

fl 

#$20 

MAKE UPPER 

0Ffl9 

C0 

20 



SUB 

B 

#$20 


0FRB 

D7 

R0 


GTNR4 

STR 

B 

MRCNRM 

SAVE THE NAME 

0FRD 

97 

fil 



. STR 

fl 

MRCNRM+1 


0FRF 

39 




RTS 



RETURN 

0FB0 

4F 



GTNR6 

CLR 

R 


CLEAR OUT 

0FB1 

5F 




CLR 

B 



0FB2 

20 

F7 



BRR 


GTNR4 






♦ SET 

TITLE 

LENGTH . LT 

+N 

0FB4 

BD 

12 

lfl 

TLEN 

JSR 


CHKNUM 

CHECK FOR NUMBER 

0FB7 

24 

07 



BCC 


TLEH2 


0FB9 

96 

D8 



LDfl 

fl 

TLN 

GET LENGTH 

0FBB 

BD 

12 

09 


JSR 


FIXVRL 

GO FIX VALUE 

0FBE 

97 

D8 



STR 

fl 

TLN 

SAVE NEW 

0FC0 

39 



TLEN2 

RTS 



RETURN , 


* DO THREE PART TITLE . TL '1'2'3' 


0FC1 

7F 

00 

B9 

TITLE 

CLR 


TPOS 

CLEAR POSITION 

0FC4 

BD 

11 

D8 


JSR 


LDNSKP 

GET TO NEXT 

0FC7 

81 

0D 



CMP 

A 

#$D 

C. R. ? 

0FC9 

27 

F5 



BEG 


TLEN2 


0FCB 

CE 

18 

BE 


LDX 


#TTLBUF 

POINT TO BUFFER 

0FCE 

7C 

00 

69 


INC 


NOCR 

SET FLAG 

0FD1 

DF 

BD 


TITLE1 

STX 


TTLPNT 

SAVE POINTER 

0FD3 

BD 

06 

8C 


JSR 


GETCHR 

GO GET CHAR. 

0FD6 

DE 

BD 



LDX 


TTLPNT 

RESTORE POINTER 

0FD8 

A7 

00 



STR 

A 

0, X 

SAVE THE CHAR. 

0FDA 

81 

0D 



CMP 

fl 

#$D 

FINISHED? 

0FDC 

27 

03 



BEG 


TITL12 


0FDE 

08 




INX 



BUMP THE POINTER 

0FDF 

20 

F0 



BRA 


TITLE1 


0FE1 

7F 

00 

69 

TITL12 

CLR 


NOCR 

CLEAR FLAG 

0FE4 

CE 

18 

0A 


LDX 


#CMNDBF 

POINT TO BUFFER 

0FE7 

A6 

B4 


TITL15 

LDfl 

A 

TTLBUF-CMNDBF, X 

0FE9 

A7 

00 



STA 

A 

0, X 

PUT CHAR. 

0FEB 

08 




INX 



GET TO NEXT 

0FEC 

81 

0D 


• 

CMP 

A 

#$D 

FINISHED? 

0FEE 

26 

F7 



BNE 


TITL15 


0FF0 

CE 

18 

0A 


LDX 


#CMNDBF 

RESTORE POINTER 

0FF3 

A6 

00 



LDA 

A 

0, X 

GET CHARACTER 

0FF5 

97 

BA 



STA 

A 

DELIM 

SAVE DELIMITER 

0FF7 

08 




INX 



BUMP THE POINTER 

0FF8 

DF 

E6 



STX 


CMNPNT 

SAVE IT 

0FFA 

CE 

18 

BE 


LDX 


#TTLBUF 

POINT TO BUFFER 

0FFD 

DF 

BD 



STX 


TTLPNT 

• 

0FFF 

86 

20 



LDA 

A 

#$20 

SET UP SPACE 

1001 

R7 

00 


TITLE2 

STA 

A 

Q, X 

SAVE IT 

1003 

08 




INX 



BUMP POINTER 

1004 

8C 

19 

0E 


CPX 


#TTLBUF+80 
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100? 

26 

F8 



BNE 


1009 

BD 

10 

72 


J SR 


100C 

D7 

BB 



ST8 

B 

100E 

BD 

10 

86 


JSR 


1011 

BD 

10 

72 


JSR 


1014 

96 

D8 



LD8 

8 

1016 

10 




SB8 


1017 

47 




8SR 

8 

1018 

97 

BC 



ST8 

8 

1018 

C6 

20 



LD8 

B 

101C 

91 

BB 



CMP 

8 

101E 

23 

0F 



BLS 


1020 

90 

BB 



SUB 

8 

1022 

DE 

BD 



LDX 


1024 

E7 

00 


TITLE4 

ST8 

B 

1026 

08 




INX 


102? 

7 C 

00 

B9 


INC 


1028 

48 




DEC 

8 

102B 

26 

F7 



BNE 


102D 

DF 

BD 



STX 


102F 

BD 

10 

86 

TITLE5 

JSR 


1032 

BD 

10 

72 

TITLE6 

JSR 


1035 

96 

D8 



LDR 

8 

1037 

90 

B9 



SUB 

8 

1039 

11 




CBfl 


1038 

23 

0D' 



BLS 


103C 

10 




SB8 


103D 

C6 

20 



LDR 

B 

103F 

DE 

BD 



LDX 


1041 

E7 

00 


TITL65 

STR 

B 

1043 

08 




INX 


1044 

48 




DEC 

8 

1045 

26 

F8 



BNE 


1047 

DF 

BD 



STX 


1049 

BD 

10 

86 

TITLE7 

JSR 


104C 

96 

D8 



LDR 

8 

104E 

97 

B9 



STR 

8 

1050 

27 

1C 



BEQ 


1052 

D6 

4E 



LDR 

B 

1054 

27 

08 



BEQ 


1056 

86 

20 


TITL75 

LDR 

8 

1058 

37 




PSH 

B 

1059 

BD 

14 

9F 


JSR 


105C 

33 




PUL 

B 

105D 

58 




DEC 

B 

105E 

26 

F6 



BNE 


1060 

CE 

18 

BE 

TITL78 

LDX 


1063 

86 

00 


TITLES 

LDR 

8 

1065 

BD 

14 

9F 


JSR 


1068 

08 




INX 


1069 

78 

00 

B9 


DEC 


106C 

26 

F5 



BNE 


106E 

BD 

08 

99 

TITLE9 

JSR 


1071 

39 




RTS 



TITLE2 


CNTTTL 

GO COUNT TITLE 

TCNT 

SAVE COUNT 

XFRTTL 

TRRNSFER TITLE 

CNTTTL 

COUNT TITLE 

TLN 

GET LENGTH 


MCNT 

SRVE MIDDLE COUNT 

#$20 

TCNT 

TITLES 

TCNT 

GET SP8CE 

TTLPNT 

RESTORE POINTER 

0, X 

SRVE CH8R. 

BUMP THE POINTER 

TPOS 

UPD8TE POSITION 

TITLE4 

TTLPNT 

SRVE POINTER 

XFRTTL 

TRRNSFER TITLE 

CNTTTL 

COUNT TITLE 

TLN 

GET LENGTH 

TPOS 

FIX POSITION 

TITLE7 


#$£0 

SET UP SP8CE 

TTLPNT 

SET POINTER 

0, X 

PUT CHAR 

BUMP POINTER 

DEC THE COUNT 

TITL65 

TTLPNT 

SRVE POINTER 

XFRTTL 

TRRNSFER TITLE 

TLN 

GET LENGTH 

TPOS 

SRVE POSITION 

TITLES 

LFM 

TITL78 

CHECK MARGIN 

#$20 

SETUP SPACE 

OUTCHR 

OUTPUT SPRCE 


DEC COUNT 

TITL75 

#TTLBUF 

POINT TO TITLE 

0, X 

GET 8 CHARACTER 

OUTCHR 

OUTPUT IT 

GO TO NEXT 

TPOS 

DEC COUNT 

TITLE8 

REPEAT TIL DONE 

PCRLF 

OUTPUT CR & LF 
RETURN 
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1072 5F 

1073 DE E6 
1075 A6 00 
1077 91 BA 

1079 27 08 
107B 81 0D 
107D 27 04 
107F 08 

1080 5C 

1081 20 F2 \ 
1083 DF E8 
1085 39 


* COUNT 

CHARACTERS IN 

TITLE 

CNTTTL 

CLR 

B 


CLEAR COUNT 


LDX 


CMNPNT 

SET POINTER 

CNTTT2 

LDA 

A 

0, X 

GET CHARACTER 


CMP 

A 

DELIM 

IS IT DELIMITER? 


BEQ 


CNTTT3 



CMP 

A 

#$D 

IS IT C. R. ? 


BEQ 


CNTTT3 



INX 



BUMP THE POINTER 


INC 

B 


BUMP COUNT 


BRA 


CNTTT2 


CNTTT3 

STX 


SPCPT1 

SET POINTER 


RTS 



RETURN 


* TRANSFER TITLE TO BUFFER 


1086 

DE 

E6 

XFRTTL 

LDX 

1083 

9C 

E8 


CPX 

108A 

27 

15 


BEQ 

108C 

A6 

00 


LDA A 

108E 

08 



INX 

108F 

DF 

E6 


STX 

1091 

DE 

BD 


LDX 

1093 

A7 

00 


STA A 

1095 

08 



INX 

1096 

DF 

BD 


STX 

1098 

7C 

00 B9 


INC 

109B 

20 

E9 


BRA 

109D 

20 

02 

XFRTT2 

BRA 




* BUMP 

COMMAND 

109F 

DE 

E6 

BMPCP 

LDX 

10R1 

08 


BMPCP2 

INX 

10A2 

DF 

E6 


STX 

10A4 

39 



RTS 


CMNPNT 

SET POINTER 

SPCPT1 

BMPCP2 

FINISHED? 

0, X 

GET CHARACTER 
BUMP TO NEXT 

CMNPNT 

SAVE 

TTLPNT 

SET POINTER 

0/ X 

PUT CHARACTER 
BUMP TO NEXT 

TTLPNT 

SAVE 

TPOS 

BUMP POSITION 

XFRTTL 

BMPCP2 

REPEAT 

POINTER 

CMNPNT 

GET POINTER 
BUMP IT 

CMNPNT 

SAVE IT 

RETURN 






* IF 

COMMAND 


. IF CONDITION . CM 

10A5 

7F 

00 

89 

IF 

CLR 


NEGT 

CLEAR FLAG 

10A8 

BD 

11 

D8 

IF1 

JSR 


LDNSK'P 

FIND NEXT CHAR 

10AB 

81 

21 



CMP 

A 

#' ! 

IS IT A '!' 

10AD 

26 

07 



BNE 


IF3 


10AF 

73 

00 

89 


COM 


NEGT 

SET NEG FLAG 

10B2 

8D 

EB 



BSR 


BMPCP 

BUMP POINTER 

10B4 

20 

F2 



BRA 


IF1 


10B6 

81 

5F 


IF3 

CMP 

A 

#$5F 

IS IT LOWER .CASE? 

10B8 

23 

02 



BLS 


IF35 

* 

10BA 

80 

20 



SUB 

A 

#*28 

MAKE UPPER 

10BC 

81 

4F 


IF35 

CMP 

A 

#'0 

CHECK IF ODD 

10BE 

26 

07 



BNE 


IF4 


10C0 

96 

74 



LDA 

A 

PGN 

GET PAGE NUMBER 
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10C2 

46 




ROR 

R 


CHECK IF ODD 

10C3 

24 

28 



BCC 


IFN 


10C5 

20 

09 



BRR 


IFV 


10C? 

81 

45 


IF4 

CMP 

A 

#'E 

EVEN? 

10C9 

26 

27 



BNE 


IF6 


10CB 

96 

74 



LDR 

fl 

PGN 

GET PAGE NUMBER 

10CD 

46 




ROR 

fl 


CHECK IF EVEN 

10CE 

25 

ID 



BCS 


IFN 


10D0 

96 

89 


IFV 

LDR 

fl 

NEGT 

CHECK NEG. 

10D2 

26 

31 



BNE 


IF8 


1004 

8D 

C9 


IF5 

BSR 


BMPCP 

BUMP POINTER 

10D6 

BD 

11 

D8 


JSR 


LDNSKP 

GET NEXT CHRR 

10D9 

7F 

00 

6F 


CLR 


NOFL 

CLEERR FLAG 

10DC 

81 

2E 



CMP 

R 


IS IT PERIOD? 

10DE 

27 

06 



BEG 


IF55 


10E0 

81 

3A 



CMP 

R 

: 

IS IT COLON? 

10E2 

26 

0D 



BNE 


IFN2 


10E4 

97 

6F 


i 

STfl 

fl 

NOFL 

SET NO FLUSH 

10E6 

08 



IF55 

INX 



FIX POINTER 

10E7 

DF 

E6 



STX 


CMNPNT 

SAVE IT 

10E9 

7C 

00 

8fl 


INC 


IFFLG 

SET IF FLAG 

10EC 

39 




RTS 



RETURN 

10ED 

96 

89 


IFN 

LDR 

fl 

NEGT 

CHECK NEG. 

10EF 

26 

E3 



BNE 

» 

IF5 


10F1 

39 



IFN2 

RTS 



RETURN 

10F2 

BD 

12 

Ifl 

IF6 

JSR 


CHKNUM 

CHECK FOR NUMBER 

10F5 

24 

0E 



BCC 


IF8 


10F7 

DE 

E6 



LDX 


CMNPNT 

GET POINTER 

10F9 

09 




DEX 



ADJUST 

10FA 

09 




DEX 




10FB 

DF 

E6 



STX 


CMNPNT 

SAVE 

10FD 

96 

70 



LDR 

R 

INNUM 

GET NUMBER 

10FF 

2B 

EC 



BMI 


IFN 


1101 

27 

Efl 



BEG 


IFN 


1103 

20 

CB 



BRR 


IFV 


1105 

39 



IF8 

RTS 



RETURN 





* TEST 

FOR NEGATIVE NUMBER 

1106 

96 

70 


TSTNEG 

LDR 

R 

INNUM 

GET NUMBER 

1108 

2fl 

07 



BPL 


TSTNE2 


110R 

97 

72 



STfl 

R 

SIGN 

SET SIGN 

110C 

97 

71 



STfl 

R 

NEG 

SET NEG 

110E 

70 

00 

70 


NEG 


INNUM 

NEGATE NUM. 

1111 

39 



TSTNE2 

RTS 



RETURN 





* CHANGE TRRP 

LOCATION 

. CH -M -N 

1112 

BD 

12 

1A 

CHNG 

JSR 


CHKNUM 

CHECK FOR NUMBER 

1115 

24 

19 



BCC 


CHNG3 

. 

1117 

8D 

ED 



BSR 


TSTNEG 

NEGATIVE? 

1119 

96 

4F 



LDR 

R 

PGL 

GET PAGE LENGTH 

111B 

4C 




INC 

fl 



me 

BD 

12 

09 


JSR 


FIXVRL 

FIX VALUE 









lAT-Wl 


J*iL&*k* 


* hfr.lftteStfrtifti*. 




r 


»C 
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111F 

CE 

17 

D8 


LDX 


STRAPS 

POINT TO TRAPS 

1122 

4D 




TST 

A 



1123 

26 

01 



BNE 


CHNG2 


1125 

4C 




INC 

A 


BUMP IT 

1126 

A1 

00 


CHNG2 

CMP 

A 

0, X 

TEST LOCATION 

1128 

27 

23 



BEQ 


CHNG5 


112A 

BD 

0D 

97 


JSR 


INTRP 

BUMP POS. 

112D 

26 

F7 



BNE 


CHNG2 


112F 

39 



CHNG25 

RTS 



RETURN 

1130 

BD 

0F 

8A 

CHNG3 

JSR 


GTNAM 

GO GET NAME 

1133 

96 

A0 



LDA 

A 

MACNAM 


1135 

27 

F8 



BEQ 


CHNG25 


1137 

D6 

A1 



LDA 

B 

MRCNAM+1 


1139 

CE 

17 

D8 


LDX 


STRAPS 

POINT TO TRAPS 

113C 

A1 

01 


CHNG4 

CMP 

A 

1, X 

CHECK CHAR. 

113E 

26 

04 



BNE 


CHNG45 


1140 

El 

02 



CMP 

B 

2, X 


1142 

27 

09 



BEQ 


CHNG5 


1144 

03 



CHNG45 

INX 



BUMP TO NEXT 

1145 

08 




INX 




1146 

08 




INX 




1147 

8C 

18 

08 


CPX 


#TRPEND 

END OF TABLE? 

114A 

26 

F0 



BNE 


CHNG4 


114C 

39 




RTS 



RETURN 

114D 

DF 

F0 


CHNG5 

STX 


TEMP5 

SAVE POINTER 

114F 

BD 

12 

1A 


JSR 


CHKNUM 

CHECK FOR NUMBER 

1152 

24 

DB 



BCC 


CHNG25 


1154 

8D 

B0 



BSR 


TSTNEG 

IS IT NEG. ? 

1156 

96 

4F 



LDA 

A 

PGL 

GET PAGE LENGTH 

1158 

4C 




INC 

A 



1159 

BD 

12 

09 


JSR 


FIXVAL 

FIX VALUE 

115C 

4D 




TST 

A 



115D 

26 

01 



BNE 


CHNG6 


115F 

4C 




INC 

A 


BUMP IT 

1160 

DE 

F0 


CHNG6 

LDX 


TEMP5 

RESTORE POINTER 

1162 

A7 

00 



STR 

A 

0, X 

PUT CHAR 

1164 

39 




RTS 



RETURN 


★ SET NUMBER REGISTER . NR X N 



1165 

BD 

11 

D8 

NREG 

JSR 


1168 

BD 

11 

E6 


JSR 


116B 

Cl 

02 



CMP 

B 

116D 

26 

14 



BNE 


116F 

36 




PSH 

A 

1170 

BD 

10 

9F 


JSR 


1173 

BD 

12 

1A 


JSR 


1176 

32 




PUL 

A 

1177 

24 

0A 



BCG 


1179 

BD 

11 

R8 


JSR 


117C 

A6 

00 



LDA 

A 

117E 

BD 

12 

09 


JSR 


1181 

A7 

00 



STA 

A 

1183 

39 



NREG4 

RTS 



LDNSKP GET TO NEXT 

CLSFV CLRSSIFV IT 

#2 

NREG4 

SAVE 

BMPCP BUMP POINTED 

CHKNUM CHECK FOR NUMBER 

RESTORE 

NREG4 

FNDNUM GO FIND NUMBER 

0,X GET CHARACTER 

FIXVAL FIX VALUE 

0, X SAVE IT 

RETURN 
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* SET ARABIC MODE . AR 


1184 

7F 

00 

C4 

ARB 

CLR 

ROM 

CLEAR ROMAN 

1187 

39 




RTS 


RETURN 





* SET FOR SMALL ROMAN 

SR 

1188 

86 

80 


SROM 

LDA A 

#$80 


118A 

97 

C4 


R0M2 

STA A 

ROM 

SET FLAG 

118C 

39 




RTS 







* SET FOR CAPITAL ROMAN 

. CR 

118D 

86 

0F 


CROM 

LDA A 

#$F 


118F 

20 

F9 



BRA 

R0M2 

SET FLAG 





* SET AUTO INCREMENT . AU N 

1191 

BD 

12 

1A 

SAUTO 

JSR 

CHKNUM 

CHECK FOR NUMBER 

1194 

24 

07 



BCC 

SAUT04 


1196 

96 

C2 



LDA A 

AUTO 

GET OLD 

1198 

BD 

12 

09 


JSR 

FIXVAL 

FIX VALUE 

119B 

97 

C2 



STA A 

AUTO 

SAVE NEW 

119D 

39 



SAUT04 

RTS ' 


RETURN 





* CLEAR 

NUMBER 

SPACE 


119E 

5F 



CLRNUM 

CLR B 



119F 

D7 

70 



STA B 

INNUM 

CLEAR OUT NUM 

11A1 

D7 

5F 



STA B 

INC 


11A3 

D7 

5A 



STA B 

GDNUM 

SET FLAGS 

11A5 

D7 

5D 



STA B 

BNUM 


11A7 

39 




RTS 


RETURN 





* FIND NUMBER 

REGISTER 


11A8 

CE 

00 

40 

FNDNUM 

LDX 

#NMREGS 

SET POINTER 

11AB 

80 

41 



SUB A 

#$41 


HAD 

DF 

60 



STX 

NUMPNT 


11AF 

9B 

61 



ADD A 

NUMPNT+1 

ADD OFFSET 

1161 

97 

61 



STA A 

NUMPNT+1 


11B3 

DE 

60 



LDX 

NUMPNT 

GET POINTER 

11B5 

39 




RTS 


RETURN 





* FETCH 

NUMBER 

FROM BUFFER 

11B6 

DE 

60 


FTCHNM 

LDX 

NUMPNT 

SET POINTER 

1188 

9C 

63 



CPX 

LSTNUM 

FINISHED? 

11BA 

27 

16 



BEQ 

FTCHN2 


11BC 

A6 

00 



LDA A 

0, X 

GET A CHAR. 

11BE 

84 

7F 



AND A 

#$7F 

MASK IT 

11C0 

08 




INX 


BUMP THE POINTER 

11C1 

DF 

60 



STX 

NUMPNT 

SAVE IT 
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11C3 

81 

0D 



CMP A 

#$D 

C. R. ? 

11C5 

26 

08 



BNE 

FTCHN1 


11C7 

70 

00 

69 


TST 

NOCR 

TEST FLAG 

11CA 

26 

03 



BNE 

FTCHN1 


11CC 

7E 

07 

48 


JMP 

FETCH5 

RETURN 

11CF 

7E 

07 

0A 

FTCHN1 

JMP 

FETCH3 


11D2 

7F 

00 

62 

FTCHN2 

CLR 

EXCHR 

CLEAR EXTRA CHAR. 

11D5 

7E 

06 

8C 


JMP 

GETCHR 

GO GET CHAR 





* LOAD 

POINTER 

AND SKIP 

SPACES 

11D8 

OE 

E6 


LDNSKP 

LDX 

CMNPNT 

SET POINTER 

11DA 

A6 

00 


LDNSK2 

LDA A 

0, X 

GET CHARACTER 

11DC 

81 

20 



CMP A 

#$20 

IS IT SPACE? 

11DE 

26 

03 



BNE 

LDNSK4 


11E0 

08 




INX 


BUMP TO NEXT 

11E1 

20 

F7 



BRA 

LDNSK2 


11E3 

DF 

E6 


LDNSK4 

STX 

CMNPNT 

SAVE POSITION 

11E5 

39 




RTS 


RETURN 





* CLASSIFV CHARACTER 


11E6 

5F 

* 


CLSFV 

CLR B 


CLEAR SPECIFIER 

11E7 

4D 




TST A 


TEST CHAR 

11E8 

2B 

IE 


i 

BMI 

CLSFV4 • 


11EA 

81 

5F 



CMP A 

#$5F 

LOWER CASE? 

11EC 

23 

06 



BLS 

CLSFV1 


11EE 

81 

7F 



CMP A 

#$7F 

TEST FOR PARITY 

11F0 

22 

16 



BHI 

CLSFV4 


11F2 

80 

20 



SUB A 

#$20 

MAKE UPPER CASE 

11F4 

81 

30 


CLSFV1 

CMP A 

#'0 

CHAR A NUMBER? 

11F6 

25 

10 



BLO 

CLSFV4 


11F8 

81 

39 



CMP A 

#'9 


UFA 

22 

02 



BHI 

CLSFV2 


11FC 

5C 




INC B 


IF SO, SET 

11FD 

39 




RTS 


RETURN 

11FE 

81 

41 


CLSFV2 

CMP A 

#'A 

IS CHAR A LETTER? 

1200 

25 

06 



BLO 

CLSFV4 


1202 

81 

5A 



CMP A 

#"Z 


1204 

22 

02 



BHI 

CLSFV4 


1206 

C6 

02 



LDA B 

#2 

IF SO, SET 

1208 

39 



'CLSFV4 

RTS 


RETURN 


* FIX NUMBER VALUE 


1209 

D6 

78 


FIXVAL 

LDA 

B 

INNUM 

GET NUMBER 

123B 

7D 

00 

72 


TST 


SIGN 

TEST SIGN 

120E 

27 

08 



BEQ 


FIXVA4 


1210 

7D 

00 

71 


TST 


NEG 

TEST FOR NEG. 

1213 

27 

01 



BEQ 


FIXVA3 

1215 

50 




NEG 

B 


NEGATE NUM 

1216 

IB 



FIXVA3 

ABA 



FIX VALUE 

1217 

39 




RTS 



RETURN 

1218 

17 



FIXVA4 

TBA 
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1219 39 RTS 

* CHECK FOR NUMBER 


121A 

4F 



CHKNUM 

CLR A 

1218 

97 

72 



STA A 

121D 

97 

71 



STA A 

121F 

BD 

11 

9E 


JSR 

1222 

5C 




INC B 

1223 

D7 

69 



STA B 

1225 

BD 

11 

D8 


JSR 

1228 

81 

2B 



CMP A 

122A 

27 

06 



BEQ 

122C 

81 

2D 



CMP A 

122E 

26 

0B 



BNE 

1238 

97 

71 



STA A 

1232 

08 



CHKNU2 

INX 

1233 

DF 

E6 



STX 

1235 

8D 

IF 



BSR 

1237 

24 

0D 



BCC 

1239 

20 

07 



BRA 

123B 

08 



CHKNU4 

INX 

123C 

DF 

E6 



STX 

123E 

8D 

32 



BSR 

1240 

24 

04 



BCC 

1242 

8D 

0B 


CHKNU5 

BSR 

1244 

0D 




SEC 

1245 

39 




RTS 

1246 

8D 

07 


CHKNU6 

BSR 

1248 

DE 

E6 



LDX 

124A 

09 




DEX 

124B 

DF 

E6 



STX 

124D 

0C 




CLC 

124E 

39 




RTS 





* CLEAR 

FLAGS 

124F 

7F 

00 

62 

CLRTHM 

CLR 

1252 

7F 

00 

69 


CLR 

1255 

39 




RTS 


SIGN 

NEG 

CLEAR FLAGS 

CLRNUM 

CLEAR NUMBER 

NOCR 

SET FLAGS 

LDNSKP 

GO TO NEXT 

#' + 

CHKNU2 

IS IT A '«■'? 

CHKNU4 

IS IT A 

NEG 

SET NEG. 

BUMP THE POINTER 

CMNPNT 

SAVE IT 

PRNUM 

CHKNU6 

CHKNU5 

PROCESS NUMBER 

FIX POINTER 

CMNPNT 

SAVE IT 

PRNU28 

CHKNU6 

PROCESS NUM. 

CLRTHM 

CLEAR FLAGS 


RETURN 

CLRTHM 

CLEAR FLAGS 

CMNPNT 

CMNPNT 

SET POINTER 


RETURN 


EXCHR CLEAR THEM 

NOCR 

RETURN 


* PROCESS NUMBER 


1256 

97 

72 


PRNUM 

STA 

A 

1258 

BD 

11 

9E 

PRNUM2 

JSR 


125B 

5C 




INC 

B 

125C 

D7 

69 



STA 

B 

125E 

7F 

00 

5F 

PRNU27 

CLR 


1261 

7C 

00 

75 


INC 


1264 

BD 

06 

8C 


JSR 


1267 

7D 

00 

7F 


TST 


126A 

27 

06 



BEQ 


126C 

7F 

00 

7F 


CLR 


126F 

7E 

13 

19 


JMP 



SIGN CLERR SIGN 

CLRNUM CLERR NUMBER 

NOCR SET FLAGS 

INC 

PRSCHR 

GETCHR GET NEXT CHAR. 

NOEXP DO EXPRESSIONS? 

PRNU28 
NOEXP 

PRNU82 JUMP AHEAD 
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TSC 6809 

TEXT PROCESSOR 


1272 

BO 

11 

E6 

PRNU23 

JSR 

1275 

Cl 

01 



CMP 

1277 

25 

05 


PRNUM3 

BLO 

1279 

27 

51 



BEQ 

127B 

7E 

13 

07 


JMP 

127E 

70 

00 

70 

PRNU31 

TST 

1281 

27 

05 



BEQ 

1283 

36 




PSH 

1284 

96 

70 



L08 

1286 

20 

53 



BR8 

1288 

7F 

00 

70 

PRNU32 

CLR 

1288 

81 

23 



CMP 

128D 

27 

18 



BEQ 

128F 

81 

2B 



CMP 

1291 

26 

04 



BNE 

1293 

97 

5B 



ST8 

1295 

20 

C7 



BR8 

1297 

81 

20 


PRNU35 

CMP 

1299 

26 

04 



BNE 

1298 

97 

5C 



ST8 

129D 

20 

BF 



BR8 

129F 

81 

25 


PRNU37 

CMP 

12fll 

26 

6C 



BNE 

1283 

96 

74 



L08 

1285 

20 

39 



BR8 

1287 

7C 

00 

75 

PRNUM4 

INC 

1288 

BD 

06 

8C 


JSR 

128D 

BO 

11 

E6 


JSR 

1288 

Cl 

02 



CMP 

1282 

26 

10 



BNE 

12B4 

BO 

11 

88 


JSR 

12B7 

86 

00 



L08 

12B9 

70 

00 

5F 


TST 

12BC 

27 

22 



BEQ 

12BE 

9B 

C2 



8D0 

12C0 

87 

00 



ST8 

1202 

20 

1C 



BR8 

12C4 

81 

2B 


PRNU45 

CMP 

12C6 

26 

47 



BNE 

1208 

97 

5F 



ST8 

1208 

20 

OB 



BR8 

12CC 

80 

30 


PRNUM5 

SUB 

12CE 

36 




PSH 

12CF 

06 

70 



L08 

12D1 

58 




8SL 

12D2 

58 




8SL 

1203 

OB 

70 



800 

1205 

58 




8SL 

1206 

32 




PUL 

1207 

IB 




8B8 

1208 

97 

70 



ST8 

1208 

7C 

00 

58 


INC 

1200 

7E 

12 

5E 


JMP 

12E0 

06 

5C 


PRNUM6 

LOR 



CLSFV 

GO CL8SSIFV 

B 

#1 

PRNU31 

PRNUM5 

PRNU73 



INNUM 

PRNU32 

TEST NUMBER 

8 

8 

INNUM 

PRNUM6 

GET NUMBER 


INNUM 

CLE8R NUMBER 

8 

#'# 

PRNUM4 

CHECK FOR 

8 

#' + 

PRNU35 

IS IT ' + '? 

8 

ROD 

PRNU27 

SET FOR ROD 

8 

PRNU37 

IS IT '-'? 

8 

SUB 

PRNU27 

SET FOR SUBTR8CT 

8 

*'Y. 

PRNUM8 

IS IT 'Y.'7 

8 

PGN 

PRNUM6 

GET P8GE NUMBER 


P8SCHR 

SET FLRG 


GETCHR 

GET CH8R8CTER 


CLSFV 

CLRSSIFV IT 

B 

#2 

FRNU45 



FNONUM 

GO FIND NUMBER 

8 

Qj X 

GET VALUE 


INC 

PRNUM6 

INCREMENT? 

8 

8UT0 

ADD IN RUTO 

8 

0/ X 

PRNUM6 

SAVE NEW 

8 

#' + 

PRNUM8 

IS IT '*'7 

8 

INC 

SET INC. 


PRNUM4 


8 

#*30 

BI8S NUMBER 

8 

B 

INNUM 

GET NUM 

B 


ADJUST 

B 

B 

INNUM 

ROD IT IN • 

B 

8 


RESTORE 

8 

INNUM 

SAVE NEW VRLUE 


GONUM 

SET GOOD 


PRNU27 

REPEAT 

B 

SUB 

SUBTRACT? 
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.4 








f 


12E2 

27 

06 



BEQ 


PRNU65 


12E4 

16 




TAB 



DO SUBTRACT 

12E5 

96 

5D 



LDR 

R 

BNUM 


12E7 

10 




SBR 




12E8 

20 

06 



BRfl 


PRNUM7 


12ER 

D6 

58 


PRNU65 

LDR 

B 

RDD 

ADDITION? 

12EC 

27 

02 



BEQ 


PRNUM7 


12EE 

9B 

5D 



ADD 

R 

BNUM 

DO ADD 

12F0 

97 

5D 


PRNUM7 

STR 

R 

BNUM 

SAVE NUMBER 

12F2 

7F 

00 

5B 


CLR 


RDD 

CLEAR FLAGS 

12F5 

7F 

00 

5C 


CLR 


SUB 


12F8 

7C 

00 

5fl 


INC 


GDNUM 

SET GOOD 

12FB 

7D 

00 

70 


TST 


INNUM 

TEST NUMBER 

12FE 

26 

03 



BNE 


PRNU72 


1300 

7E 

12 

5E 


JMP 


PRNU27 


1303 

32 



PRNU72 

PUL 

R 


RESTORE CHRR 

1304 

7E 

12 

88 


JMP 


PRNU32 


1307 

7 D 

00 

70 

PRNU73 

TST 


INNUM 

TEST NUMBER 

130R 

27 

03 



BEQ 


PRNUM8 


130C 

36 




PSH 

R 



130D 

20 

D1 



BRfl 


PRNUM6 


130F 

7F 

00 

7F 

PRNUM8 

CLR 


NOEXP 

CLEAR FLAG 

1312 

7D 

00 

5A 


TST 


GDNUM 

TEST GOOD 

1315 

26 

02 



BNE 


PRNU82 


1317 

0C 




CLC 



SET CONDITION 

1318 

39 

0 



RTS 



RETURN 

1319 

97 

62 


PRNU82 

STR 

R 

EXCHR 

SAVE EXTRA CHRR. 

1318 

CE 

01 

25 


LDX 


#NUM 

POINT TO NUMBER 

131E 

96 

5D 



LDR 

A 

BNUM 

GET NUMBER 

1320 

97 

70 



STfV 

fl*\ 

INNUM 


1322 

27 

04 



BEQ 


BTOD 


1324 

D6 

C4 



LDR 

B 

ROM 

ROMAN OR ARABIC? 

1326 

26 

37 



BNE 


BTOROM 






* BINRRV TO 

ASCII ARABIC 


1328 

5F 



BTOD 

CLR 

B 



1329 

81 

64 


BTOD1 

CMP 

R 

#100 

NUM > 100? 

1326 

25 

05 



BLO 


BT0D2 


132D 

80 

64 



SUB 

fl 

#100 

SUB OFF 100 

132F 

5C 




INC 

B 


BUMP NUMBER 

1330 

20 

F7 



BRfl 


BTOD1 


1332 

5D 



BT0D2 

TST 

B 


ANV VET? 

1333 

27 

06 



BEQ 


BT0D3 


1335 

CB 

30 



ADD 

B 

#$38 

SET HUNDREDS 

1337 

E7 

00 



STR 

B 

0, X 

SAVE 

1339 

08 




INX 



GO TO NEXT . 

1338 

5F 




CLR 

B 


CLEAR REGISTER 

133B 

81 

0fl 


BT0D3 

CMP 

R 

#10 

NUMBER > 10 

133D 

25 

05 



BLO 


BT0D4 


133F 

80 

0fl 



SUB 

fl 

#10 

SUB VALUE 

1341 

5C 




INC 

B 


BUMP NUMBER 

1342 

20 

F7 



BRfl 


BT0D3 


1344 

5D 



BT0D4 

TST 

B 


ANV? 
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1345 

27 

05 


BEQ 

1347 

CB 

30 


8DD 

1349 

E7 

00 


STR 

134B 

68 



INX 

134C 

88 

30 

BT0D45 

8DD 

134E 

87 

00 


STR 

1350 

08 



INX 

1351 

96 

62 

BT0D5 

LDfl 

1353 

87 

00 


STR 

1355 

08 



INX 

1356 

DF 

6o 


STX 

1358 

CE 

01 25 


LDX 

135B 

DF 

60 


STX 

135D 

0D 



SEC 

135E 

39 



RTS 


* BINflRV TO 


135F 

C6 

43 

BTOROM 

LD8 

1361 

81 

64 

BTOROl 

CMP 

1363 

25 

07 


BLO 

1365 

80 

64 


SUB 

1367 

E7 

00 


STR 

1369 

08 



INX 

136R 

20 

F5 


BRR 

136C 

81 

58 

BT0R02 

CMP 

136E 

25 

0R 


BLO 

1370 

80 

5fl 


SUB 

1372 

E7 

01 


STR 

1374 

C6 

58 


LDfl 

1376 

E7 

00 


STR 

1378 

08 



INX 

1379 

08 



INX 

137R 

81 

32 

BT0R03 

CMP 

137C 

25 

07 


BLO 

137E 

80 

32 


SUB 

1380 

C6 

4C 


LDfl 

1382 

E7 

00 


STR 

1384 

08 



INX 

1385 

81 

28 

BT0R04 

CMP 

1387 

25 

0C 


BLO 

1389 

80 

28 


SUB 

138B 

C6 

58 


LDfl 

138D 

E7 

00 


STR 

138F 

C6 

4C 


LDR 

1391 

E7 

01 


STR 

1393 

08 



INX 

1394 

08 



INX 

1395 

C6 

58 

BT0R05 

LDfl 

1397 

81 

0fl 


CMP 

1399 

25 

07 


BLO 

139B 

80 

08 


SUB 

139D 

E7 

00 


STR 

139F 

08 



INX 



BT0D45 


B 

#$30 

ADD BIAS 

B 

O, X 

SAVE TENS 

BUMP TO NEXT 

fl 

#$30 

ADD IN BIAS 

R 

0, X 

SAVE ONES 

BUMP POINTER 

fl 

EXCHR 

GET EXTRA 

fl 0/ X 

LSTNUM 

#NUM 

NUMPNT 

ASCII ROMAN 

SAVE IT 

BUMP TO NEXT 

SAVE POSITION 
POINT TO NUMBER 

RETURN 

B 

#'C 

SET HUNDREDS 

fl 

#100 

BT0R02 

NUMBER > 100? 

fl 

#100 

SUBTRACT OFF 

B 

0, X 

BTOROl 

SET 100 

BUMP TO NEXT 

fl 

#90 

BT0R03 

CHECK FOR 90 

fl 

#90 

SUBTRACT OFF 

B 

1, X 

PUT CHARACTER 

B 

#'X 

SET TENS 

B 

0, X 

SAVE IT 

BUMP TO NEXT 

fl 

#50 

BT0R04 

CHECK FOR FIFTV 

fl 

#56 

SUBTRACT OFF 

B 

#'L 

SET 'L' 

B 

13, X 

SAVE IT 

BUMP THE POINTER 

fl 

#40 

BT0R05 

CHECK FOR 40 

fl 

#40 

SUBTRACT OFF 

B 

rt'X 

SET TEN 

B 

0, X 

SAVE IT 

B 

#'L 

SET 50 

B 

X 

SAVE IT 

BUMP TO NEXT 

B 

IPX 

SET UP 'X' 

fl 

#10 

BT0R06 

CHECK TENS 

fl 

#10 

SUBTRACT OFF 

B 

0, X 

SAVE 

BUMP POINTER 
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1300 

20 

F3 



BRO 


BT0R05 


1302 

81 

09 


BT0R06 

CMP 

0 

#9 

CHECK IF 9 

1304 

25 

00 



BLO 


BT0R65 


1306 

80 

09 



SUB 

0 

#9 

SUBTROCT 9 

1308 

E7 

01 



STO 

B 

1, X 

SAVE CHARACTER 

1300 

C6 

49 



LOO 

B 

#'I 


130C 

E7 

00 



STO 

B 

0, X 


130E 

08 




INX 



GET TO NEXT 

130F 

08 




INX 




13B0 

81 

05 


BT0R65 

CMP 

0 

#5 

CHECK FOR 5 

13B2 

25 

07 



BLO 


BT0R07 

• 

13B4 

C6 

56 



LOO 

B 

#'V 

SET UP 'V' 

13B6 

E7 

00 



STO 

B 

0; X 

SAVE IT 

13B8 

08 




INX 



BUMP POINTER 

13B9 

80 

05 



SUB 

0 

#5 

FIX VALUE 

13BB 

81 

04 


BT0R07 

CMP 

0 

#4 

CHECK FOR 4 

13BD 

25 

0C 



BLO 


BT0R08 


13BF 

80 

04 



SUB 

0 

#4 

SUBTRACT OFF 

13C1 

06 

49 



LOO 

B 

#'I 

SET UP '1' 

13C3 

E7 

00 



STO 

B 

0, X 

SAVE CHARACTER 

13C5 

C6 

56 



LOO 

B 

t'V 


13C7 

E7 

01 



STO 

B 

1, X 

SAVE 'V' 

13C9 

08 




INX 



BUMP POINTER 

13C0 

08 




INX 




13CB 

C6 

49 


BT0R08 

LOO 

B 

4t 

\ 

H 


13CD 

40 

• 



TST 

0 


TEST ONES 

13CE 

27 

06 



BEQ 


BT0R09 


13D0 

E 7 

00 



STO 

B 

0> X 

SAVE I'S 

13D2 

08 




INX 




13D3 

40 




OEC 

0 


DONE? 

13D4 

20 

F5 



BRO 


BT0R08 


13D6 

OF 

63 


BT0R09 

STX 


LSTNUM 

SAVE POINTER 

13D8 

96 

C4 



LDO 

0 

ROM 

CHECK IF SMALL 

1300 

20 

0E 



BPL 


BTOOON 


13DC 

CE 

01 

25 


LOX 


#NUM 

RESET POINTER 

13DF 

06 

00 


BT0R92 

LOO 

0 

0, X 

GET CHARACTER 

13E1 

8B 

20 



000 

0 

#*20 

MAKE SMALL 

13E3 

07 

00 



STO 

0 

0, X 

PUT BACK 

13E5 

08 




INX 



BUMP TO NEXT 

13E6 

9C 

63 



CPX 


LSTNUM 

FINISHED? 

13E8 

26 

F5 



BNE 


BT0R92 


13E0 

7E 

13 

51 

BTOOON 

JMP 


BT005 






* PUSH 

X ONTO 

STOCK 


13ED 

32 



PUSHX 

PUL 

0 


GET RETURN ADR 

13EE 

33 




PUL 

B 



13EF 

97 

F4 



STO 

0 

RETREG 

SAVE IT 

13F1 

07 

F5 



STO 

B 

RETREG+1 


13F3 

DF 

F6 



STX 


INDEX 

SAVE X 

13F5 

96 

F6 



LOO 

0 

INDEX 

GET PART X 

13F7 

06 

F7 



LDO 

B 

INDEX+1 


13F9 

36 




PSH 

0 


PUSH ON STACK 

13F0 

37 




PSH 

B 
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13FB 

DE 

F4 


PUSH4 

LDX 


RETREG 

GET RETURN 

13FD 

6E 

00 



JMP 


0/ X 

RETURN 





* PULL 

X FROM 

STACK 


13FF 

32 



PULLX 

PUL 

fl 

GET RETURN ADR. 

1460 

33 




PUL 

e 



1401 

97 

F4 



STfl 

a 

RETREG 

SAVE IT 

1403 

D7 

F5 



STB 

B 

RETREG+1 


1405 

33 




PUL 

B 


PULL X 

1406 

32 




PUL 

fl 



140? 

97 

F6 



STfl 

fl 

INDEX 

SAVE X 

1409 

D7 

F7 



STfl 

B 

INDEX+1 


140B 

96 

F4 



LDfl 

fl 

RETREG 

GET RETURN ADR. 

140D 

D6 

F5 



LDft 

B 

RETREG+1 


140F 

37 




PSH 

B 


PUSH BACK ON 

1410 

36 




PSH 

fl 



1411 

DE 

F6 



LDX 


INDEX 

LORD UP X 

1413 

39 




RTS 



RETURN 





* FIX WIDTH 




1414 

96 

B4 


FIXWD 

LDfl 

fl 

TLLN 

GET TEMP LENGTH 

1416 

9B 

4B 



ADD 

fl 

LLN 

ADD TO LENGTH 

1418 

97 

4B. 



STfl 

fl 

LLN 

SAVE NEW 

141fl 

96 

B3 



LDfl 

fl 

TIND 

GET TEMP IND. 

141C 

9B 

48 



ADD 

fl 

IND 

ADD TO INDENT 

141E 

97 

48 



STfl 

fl 

IND 

SAVE NEW 

1420 

96 

B2 



LDfl 

fl 

TSIN 

GET TEMP SIND. 

1422 

9B 

7C 



ADD 

fl 

SIN 

ADD TO SIND. 

1424 

97 

7C 



STfl 

fl 

SIN 

SAVE NEW 

1426 

4F 




CLR 

fl 


CLEAR OLD VALUES 

1427 

9? 

B4 



STfl 

fl 

TLLN 


1429 

97 

B3 



STfl 

fl 

TIND 


142B 

97 

B2 



STfl 

fl 

TSIN 


142D 

96 

4B 



LDfl 

fl 

LLN 

GET LINE LENGTH 

142F 

90 

48 



SUB 

fl 

IND 

SUB INDENT 

1431 

90 

7C 



SUB 

fl 

SIN 

SUB S IND. 

1433 

81 

0E 



CMP 

fl 

#14 

LESS THAN 15? 

1435 

22 

02 



BHI 


FIXWD2 


1437 

86 

0F 


FIXWD1 

LDfl 

fl 

#15 

FORCE TO 15 

1439 

81 

96 


FIXWD2 

CMP 

fl 

#150 

>150? 

143B 

23 

02 



BLS 


FIXWD3 


143D 

86 

96 



LDfl 

fl 

#150 


143F 

97 

C6 


FIXWD3 

STfl 

fl 

WIDTH 

SAVE NEW WIDTH 

1441 

7E 

06 

46 


JMP 


FIXBFE 

GO FIX 





* GET 

INPUT 

CHARACTERS 

' 

1444 

CE 

1? 

74 

GIBUF 

LDX 


#SBUF 

POINT TO BUFFER 

1447 

5F 




CLR 

B 


CLEAR COUNT 

1448 

37 



GIBUF2 

PSH 

B 



1449 

BD 

02 

06 


JSR 


INCH 

GET CHARACTER 

144C 

33 




PUL 

B 

















144D 

144F 

1451 

1453 

1455 

145? 

1459 

145R 

145C 

145D 

145F 

1461 

1464 

1466 

1466 

1469 

146C 

146F 


81 18 
27 18 
81 0D 
27 0fl 
81 IF 
23 EF 
5C 

B7 00 
08 

20 E9 
R? 63 
CE 17 74 
DF E6 
D? 46 
39 

CE 15 62 
BD 14 90 
20 D3 


1471 86 80 04 
1474 2fl 01 

1476 39 

1477 86 80 04 
147R 2R FB 
147C 01 

147D 01 
147E 01 
147F CE 15 92 
1482 7E 0C D8 


OCESSOR 


TSC MNEMONIC ASSEMBLER 


CMP fl 

4*18 

CONTROL X? 


BEQ 

GIBUF6 



CMP R 

#$D 

C. R. ? 


BEQ 

GIBUF4 



CMP fl 

#$1F 

CONTROL CHAR. ? 


BLS 

GIBUF2 



INC B 


BUMP THE COUNT 

' 

STfl fl 

0, X 

PUT CHARACTER 


INX 


BUMP THE POINTER 


BRA 

GIBUF2 

REPEAT 

GIBUF4 

STfl fl 

0/ X 

PUT CHARACTER 


LDX 

#SBUF 

FIX POINTER 


STX 

CMNPNT 

SAVE IT 


STfl B 

GCNT 

SAVE COUNT 


RTS 


RETURN 

GIBUF6 

LDX 

4QUSTR 

POINT TO STRING 


JSR 

PSTRNG 

OUTPUT IT 


BRA 

GIBUF 


* TEST 

FOR BREAK 


TSTBRK 

LDA fl 

$8004 

GET STATUS 


BPL 

TSTBR2 



RTS 


RETURN 

TSTBR2 

LDA fl 

$8064 

GET STATUS 


BPL 

TSTBR2 

WAIT TIL CLEAR 


NOP 


FOR EXPANSION 


NOP 




NOP 




LDX 

4BRKSTR 

POINT TO STRING 


JMP 

STOP1 

OUTPUT IT 


* OUTPUT fl C. R. AND L. F. 


1485 DF F8 
1487 CE 15 43 
148R BD 14 92 
148D DE F8 
148F 39 


1490 8D F3 


1492 R6 00 
1494 81 04 
1496 27 06 
1498 BD 02 03 
149B 08 
149C 20 F4 
149E 39 


CRLF 

STX 

XTEMP 

SAVE X REG. 


LDX 

4CRLFST 

POINT TO STRING 


JSR 

PDATfl 

OUTPUT IT 


LDX 

XTEMP 

RESTORE X 

CRLF5 

RTS 


RETURN 

* PRINT 

STRING 



PSTRNG 

BSR 

CRLF 

OUTPUT CR & LF 

* PRINT 

DATA 



PDATA 

LDA A 

0, X 

GET ft CHARACTER 


CMP A 

#4 

IS IT TERM? 


BEQ 

PDATR2 



JSR 

OUTCH 

OUTPUT IT 


INX 


MOVE TO NEXT 


BRA 

PDflTfl 

REPEAT 

PDATA2 

RTS 


RETURN 
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* OUTPUT CHARACTER 


149F 

D6 

91 


OUTCHR 

LDA 

B 

DIVFLG 

DIVERTING? 

14A1 

2? 

06 



BEQ 


0UTCH2 


14A3 

7C 

00 

92 


INC 


DIVFL2 

SET FLAG 

14A6 

7E 

0E 

AE 


JMP 


OUTMAC 

OUT TO MACRO 

14A9 

D6 

79 


0UTCH2 

LDA 

B 

NOOUT 

DO OUTPUT? 

14AB 

27 

01 



BEQ 


0UTCH3 


14AD 

39 




RTS 



RETURN 

14AE 

84 

7F 


0UTCH3 

AND 

A 

#*7F 

MASK CHAR. 

14B0 

D6 

93 



LDA 

B 

PRNTR 

TO PRINTER? 

14B2 

26 

83 



BNE 


0UTCH4 


14B4 

7E 

02 

03 


JMP 


OUTCH 

OUT TO TERM 

14B7 

7E 

02 

0F 

0UTCH4 

JMP 


POUCH 

OUT TO PRINTER 





* INPUT 

A CHARACTER 


14BA 

96 

FC 


INCHR 

LDA 

A 

CRF 

CHECK FLAG 

14BC 

27 

0D 



BEQ 


INCH15 


14BE 

37 




PSH 

B 



14BF 

D6 

9D 



LDA 

B 

JNKCNT 

GET JUNK COUNT 

14C1 

27 

05 



BEQ 


INCHR1 


14C3 

8D 

06 


INCHR0 

BSR 


INCH15 

SKIP JUNK 

14C5 

5A 




DEC 

B 


DEC COUNT 

14C6 

26 

FB 



BNE 


INCHR0 


14C8 

D7 

FC 


INCHR1 

STA 

B 

CRF 


14CA 

33 




PUL 

B 



14CB 

DF 

F8 


INCH15 

STX 


XTEMP 

SAVE X REG. 

14CD 

DE 

9B 



LDX 


NXTRAM 

POINT TO NEXT 

14CF 

9C 

99 



CPX 


LSTRAM 

FINISHED? 

14D1 

27 

0E 



BEQ 


INCHR4 


14D3 

A6 

00 



LDA 

A 

0, X 

GET CHARACTER 

14D5 

08 




INX 



BUMP TO NEXT 

14D6 

DF 

9B 


INCHR2 

STX 


NXTRAM 

SAVE POSITION 

14D8 

81 

0D 



CMP 

A 

#$D 

IS IT C. R. ? 

14DA 

26 

02 



BNE 


INCHR3 


14DC 

97 

FC 



STA 

A 

CRF 

SET FLAG 

14DE 

DE 

F8 


INCHR3 

LDX 


XTEMP 

RESTORE POINTER 

14E0 

39 




RTS 



RETURN 

14E1 

86 

1A 


INCHR4 

LDA 

A 

#*1A 

SET UP EOF 

14E3 

20 

FI 



BRA 


INCHR2 



* REWIND FILE <IN RAM) 


14E5 DE 97 

RWND 

LDX 

FSTRAM 

GET FIRST 

14E7 DF 9B 


STX 

NXTRAM 

MAKE NEXT 

14E9 39 


RTS 


RETURN 


* STRINGS 

14EA 20 CPRSTR FCC ' TSC TEXT PROCESSOR' 

14EB 20 20 
14ED 54 53 
14EF 43 20 



















am 
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14F1 

54 

45 

14F3 

58 

54 

14F5 

20 

50 

14F7 

52 

4F 

14F9 

43 

45 

14FB 

53 

53 

14FD 

4F 

52 

14FF 

04 


1500 

43 


1501 

4F 

50 

1503 

59 

52 

1505 

49 

4? 

1507 

48 

54 

1509 

20 

£8 

150B 

43 

29 

150D 

20 

31 

150F 

39 

37 

1511 

3? 

20 

1513 

42 

59 

1515 

20 

54 

1517 

53 

43 

1519 

04 


151A 

44 


151B 

41 

54 

151D 

45 

20 

151F 

28 

4D 

1521 

4D 

3A 

1523 

44 

44 

1525 

3A 

59 

1527 

59 

29 

1529 

3F 

20 

152B 

04 


152C 

54 


152D 

59 

50 

152F 

45 

20 

1531 

50 

20 

1533 

46 

4F 

1535 

52 

20 

153? 

50 

52 

1539 

49 

4E 

153B 

54 

45 

153D 

52 

2E 

153F 

2E 

2E 

1541 

20 


1542 

04 


1543 

0D 


1544 

0A 

00 

1546 

00 

00 

1548 

00 

04 

154A 

50 


154B 

41 

4? 

154D 

45 

20 

154F 

4C 

49 

1551 

4D 

49 


FOB 

FCC 


'COPYRIGHT <C> 197? BY TSC' 


FCB 

DflTSTR FCC 


'DATE <MM:DD:YY>‘ 


PRQU 


FCB 

FCC 


4 

'TYPE P FOR PRINTER. . . ' 


FCB 

CRLFST FCB 


PGSTR FCC 


$D/ $A, 0> 0. 0> 0* 4 


'PAGE LIMITS? ' 
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1553 

54 

53 

1555 

3F 

20 

1557 

04 


1558 

07 


1559 

53 


1550 

54 

4F 

155C 

50 

2E 

155E 

2E 

2E 

1560 

07 


1561 

04 


1562 

3F 


1563 

20 


1564 

07 


1565 

04 


1566 

4C 


1567 

49 

4E 

1569 

45 

53 

156B 

20 

50 

156D 

45 

52 

156F 

20 

53 

1571 

43 

52 

1573 

45 

45 

1575 

4E 

3F 

1577 

20 


1578 

04 


1579 

20 


1570 

20 

20 

157C 

20 

20 

157E 

40 

41 

1580 

43 

52 

1582 

4F 

20 

1584 

4F 

56 

1586 

45 

52 

1588 

46 

4C 

1580 

4F 

57 

158C 

20 

20 

158E 

20 

20 

1590 

20 


1591 

04 


1592 

20 


1593 

20 

50 

1595 

52 

4F 

1597 

47 

52 

1599 

41 

4D 

159B 

20 

42 

159D 

52 

45 

159F 

41 

4B 

1501 

20 

20 

1503 

04 



1504 39 

1505 


FCB 4 

STPSTR FCB 7 

FCC '5 


STOP. . . 


FCB 

QUSTR FCC 
FCB 

LPPSTR FCC 


7 • 4 
'? ' 

7> 4 

'LINES PER SCREEN? ' 


FCB 

OVFSTR FCC 


4 

'***4: MOCRO OVERFLOW ****' 


FCB 4 

BRKSTR FCC '* PROGROM BREOK *' 


FCB 4 

♦PRINTER ROUTINES 

PRNIT RTS ** REPLOCE WITH OWN 

RUB 


i 


r 

t 


\ 


€ 

I 



31 















1 













• r 


Si.- i 


,*• ft fef 

iiL&Mti>bL+ *' : k'dktlwi 
jaiFST 
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15C4 39 
15C5 


PROUCH RTS 
RMB 
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** REPLACE WITH OWN 


31 


* BUFFER STORAGE AREA 


i 


15E4 

167F 

16AC 

1774 

17D8 

1808 

188A 

18BE 

1972 

19F2 

19F4 

1FF2 

1FF4 

1FF5 


LINBUF 

RMB 

155 

EXTBUF 

RMB 

45 

LINBU2 

RMB 

200 

SBUF 

RMB 

100 

TRAPS 

RMB 

48 

TRPEND 

RMB 

2 

CMNDBF 

RMB 

180 

TTLBUF 

RMB 

189 

MACTBL 

RMB 

128 

MTEND 

RMB 

2 

MACROS 

RMB 

1534 

LMACRO 

RMB 

2 

LAST 

RMB 

1 

USER 

EQU 

* 



END 

NO ERROR<S> DETECTED 


{ 




SYMBOL TABLE: 

ADD 005B ADJS35 

0447 

ADJS55 

0466 

ADJSP2 

0438 

ADJSP3 

0444 

ADJSP4 

0451 

ADJSP5 

045C 

RDJSP6 

046A 

ADJSP7 

0471 

RDJSP8 

047C 

ADJSP9 

0483 

ADJSPC 

0432 

ftPMflC 

0DDC 

fiRB 

1184 

RTFLG 

006C 

ATL 

0D52 

ATL1 

0D67 

ATL2 

0D6A 

ATL3 

0D77 

ATL35 

0D7F 

ATL4 

0D80 

ATL45 

0D88 

ATL5 

0D8F 

AUTO 

00C2 

BMPCP 

109F 

BMPCP2 

10A1 

BNUM 

005D 

BRAK 

0924 

6RKSTR 

1592 

BTOD 

1328 

BTOD1 

1329 

BT0D2 

1332 

BT0D3 

133B 

BT0D4 

1344 

BT0D45 

134C 

BT0D5 

1351 

BTODON 

13EA 

BT0R65 

13B0 

BT0R92 

13DF 

BTOROl 

1361 

BT0R02 

136C 

BT0R03 

137A 

BT0R04 

1385 

BT0R05 

1395 

BT0R06 

13fl2 

BT0R07 

13BB 

BT0R08 

13CB 

BT0R09 

13D6 

BTOROM 

135F 

BUFEND 

00DE 

BUFPNT 

00DA 

CALMA2 

0876 

CALMftC 

0871 

CAP 

00B7 

CftPIT 

07C5 

CAPIT2 

07CB 

CENTE2 

0C37 

CENTE4 

0C3B 

CENTER 

0C24 

CENTJ 

05B2 

CHKLS2 

0F70 

CHKLST 

0F64 

CHKNU2 

1232 

CHKNU4 

123B 

CHKNU5 

1242 

CHKNU6 

1246 

CHKNUM 

121ft 

CHNG 

1112 

CHNG2 

1126 

CHNG25 

112F 

CHNG3 

1130 

CHNG4 

113C 

CHNG45 

1144 

CHNG5 

114D 

CHNG6 

1160 

CLRGET 

0689 

CLRNUM 

119E 

CLRSP2 

02AC 

CLRSP4 

02B7 

CLRSPC 

02R8 

CLRTHM 

124F 

CLSFY 

11E6 

CLSFV1 

11F4 

CLSFY2 

11FE 

CLSFV4 

1208 

CLSMA2 

0F06 

CLSMA3 

0F08 

CLSMR4 

0F20 

CLSMA5 

0F27 

CLSMA6 

0F2E 

CLSMAC 

0EF8 

CMFLG 

0065 

CMNDBF 

180A 

CMNDT 

095C 

CMNPNT 

90E6 

CNJ 

00CE 

CNTFLG 

00D4 

CNTRI4 

062D 

CNTRI5 

0633 

CNTRI6 

0643 

CNTRIT 

0619 

CNTSP2 

0610 

CNTSP3 

0618 

CNTSPC 

060’B 

CNTTT2 

1075 

CNTTT3 

1083 

CNTTTL 

1072 

C0LCN2 

0083 

COLCNT 

0042 

COMRN2 

07E5 

C0MAN3 

0805 

C0MAN4 

0815 

C0MRN5 

0818 

C0MAN6 

0324 

C0MAH7 

0328 

COMAN8 

033C 

C0MAN9 

0848 

COMRND 

07DF 

CPRSTR 

14EA 

CRF 

00FC 

CRLF 

1485 

CRLF5 

148F 

CRLFST 

1543 

CROM 

113D 

DATSTR 

151ft 

DAY 

0043 

DEFM35 

0DC2 

DEFM45 

0DD1 

DEFMA2 

0DA5 

DEFMA3 

0DflD 

DEFMA4 

0DCE 

DEFMA5 

0DDB 

DEFMRC 

0D9E 

DELC35 

05D3 

DELCH3 

05CF 















I 




i mm 






( 
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DELCH4 

05DC 

OELCHR 

05B7 

OELIM 

00BR 

DFMFLG 

008F 

OIVAPP 

0E44 

DIVER0 

0E29 

0IVER1 

0E2F 

DIVER2 

0E36 

0IVER4 

0E3B 

DIVERT 

0E25 

DIVFL2 

0092 

OIVFLG 

0091 

OOCRP 

0077 

OOCM 

0073 

DONE 

006R 

DOTRB 

0B10 

00TRB2 

0B1O 

DIJBB 

0C18 

OUBH 

0C04 

0UBH1 

0C07 

DUBH2 

0C0C 

DUBW 

0C0F 

OWFLG 

008E 

EBFENO 

00E2 

ENOLIN 

00BF 

EV 

007E 

EXCHR 

0062 

EXTBUF 

167F 

FETC22 

06F3 

FETC25 

0706 

FETC35 

071R 

FETC36 

071F 

FETC37 

0722 

FETC45 

072A 

FETC47 

0733 

FETC48 

073B 

FETC49 

0744 

FETC55 

0753 

FETC57 

0767 

FETC58 

0772 

FETC59 

0778 

FETC65 

0787 

FETC75 

07R5 

FETCH2 

0600 

FETCH3 

070A 

FETCH4 

0723 

FETCH5 

0748 

FETCH6 

077B 

FETCH7 

079C 

FETCH8 

07C3 

FETCHR 

06D4 

FILFLG 

00C8 

FILL 

0CB2 

FINCM 

0357 

FINCM1 

0365 

FINCM2 

0868 

FINCM4 

086B 

FINIS4 

0953 

FINISH 

0951 

FINMAC 

0083 

FIXBF4 

0655 

FIXBFE 

0646 

FIXVR3 

1216 

FIXVR4 

1218 

FIXVRL 

1209 

FIXWD 

1414 

FIXWD1 

1437 

FIXW02 

1439 

FIXW03 

143F 

FLBF 

006B 

FLUSH 

092E 

FLUSH2 

0939 

FLUSH3 

0942 

FLUSH5 

0940 

FLUSHB 

092R 

FNDLS2 

0F5R 

FNOLST 

0F53 

FN0MR1 

0F3E 

FN0MR2 

0F4R 

FNDMA4 

0F5O 

FNDMA6 

0F52 

FNDMRC 

0F35 

FNONUM 

1108 

FNTR 

0CF5 

FNTR2 

0CFC 

FNTR4 

0011 

FNTR5 

0D19 

FNTR6 

0D26 

FSTAVL 

00R6 

FSTRAM 

0097 

FTCHN1 

11CF 

FTCHN2 

1102 

FTCHNM 

11B6 

GCNT 

0046 

GDNUM 

005A 

GETC22 

069E 

GETC25 

06R7 

GETCH1 

0693 

GETCH2 

069A 

GETCH3 

06RB 

GETCH4 

06BB 

GETCH5 

06C4 

GETCH6 

06D1 

GETCHR 

068C 

GETIN 

0B75 

GIBUF 

1444 

GIBUF2 

1448 

GIBUF4 

145F 

GIBUF6 

1469 

GTNA4 

0FRB 

GTNR6 

0FB0 

GTNRM 

0F8R 

HIPG 

0096 

IF 

10R5 

IF1 

10R3 

IF3 

10B6 

IF35 

10BC 

IF4 

10C7 

IF5 

1004 

IF55 , 

10E6 

IF6 

10F2 

IF8 

1105 

IFFLG 

00SR 

IFN 

10EO 

IFN2 

10F1 

IFV 

1000' 

INC 

005F 

INCH 

02e6 

INCH15 

14CB 

IHCHR 

14BA 

INCHR0 

1403 

INCHR1 

14C8 

INCHR2 

1406 

INCHR3 

140E 

INCHR4 

14E1 

IND 

0048 

IN02 

0084 

INDEX 

00F6 

INONT 

0ROB 

INDNT2 

0AEB 

INIT 

02C0 

INIT25 

02C4 

INIT3 

02FB 

INIT4 

031R 

INMAC 

0EE3 

INMRC2 

0EE5 

INMAC4 

0EF3 

INMRC5 

0EF7 

INNUM 

0070 

INSS44 

0684 

INSSP2 

05E7 

INSSP3 

05EO 

INSSP4 

0601 

INSSP5 

068A 

INSSPC 

05DD 

INTRO 

0212 

INTRO0 

0219 

INTR03 

0259 

INTR04 

026A 

INTR05 

027C 

INTR06 

0290 

INTRP 

0097 

JNKCNT 

009D 

JST 

0RR1 

JST1 

0RB1 

JST15 

0RB6 

JST2 

0RB7 

JST3 

0RC1 

JST4 

0RCR 

JSTF25 

03AF 

JSTF55 

0303 

JSTF63 

03E0 

JSTF65 

03EB 

JSTF95 

0410 

JSTFV 

0397 

JSTFV1 

03R8 

JSTFV2 

03RO 

JSTFV3 

03B8 

JSTFV4 

03CS 

JSTFV5 

0301 

JSTFV6 

0306 

JSTFV7 

03F0 

JSTFV3 

03FR 

JSTFV9 

0412 

JUST 

0006 

LAST 

1FF4 

LOIV 

0055 

L0NSK2 

11DR 

LDNSK4 

11E3 

LDNSKP 

1103 

LEFT 

006D 

LEFTM 

0RCB 

LEFTM1 

0RO8 

LEFTM2 

0ROR 

LENT25 

0B05 

LENTH 

0RF1 

LENTH2 

0B01 

LENTH5 

OB0F 

LFM 

004E 

LINBU2 

16AC 

LINBUF 

15E4 

LINCHT 

0040 

LINS 

048F 

LINS2 

0494 

LINS3 

049F 

LINS4 

04RC 

LINS5 

04B6 

LINS6 

04B8 

LIN37 

04C5 

LLN 

004B 

LLN2 

009F 

LMRCRO 

IFF 2 

LOWPG 

0095 

LPPSTR 

1566 

LSTAVL 

00A4 

LSTNUM 

0063 

LSTRAM 

0099 

MRCCNT 

008B 

MACENO 

00FR 

MRCNAM 

00A0 

MRCOVF 

084E 

MACROS 

19F 4 

MRCTBL 

1972 

MACTMP 

00A2 

MBFLG 

0066 

MBFPNT 

0067 

MCENO 

0F7O 

MCEND2 

0F87 

MCNT 

00BC 

MINDIS 

0070 

MNTH 

004C 

MON 

0209 

MSC 

0002 

MTENO 

19F2 

MULTS 

0R8B 

MULTS2 

0R94 

MULTS3 

0R96 

NEOL 

0CE6 

NEDL1 

0CEE 

NE0L2 

OCF0 

NEDL4 

0CF4 

NEG 

0071 

NEGT 

0889 

NMREGS 

0040 

NOCRP 

0C72 

NOCR 

0069 

NOEXP 

007F 

NOFILL 

0CRB 

NOFL 

006F 

NO JST 

0A9O 

NONUMS 

0080 

NOOUT 

0079 

NOSPC 

0B23 

NPGN • 

005E 

NREG 

1165 

NREG4 

1183 

NSP 

0073 

NUM 

0125 

NUMPNT 

0060 

NXTMOC 

00RC 

NXTOUT 

00RE 

NXTRRM 

009B 

NXTTRB 

0080 

NXTTRP 

0C85 

OPAPP 

0E82 

0PRPP2 

0E8R 

0PRPP4 

0E8F 

OPMRC 

0E4F 

0PMAC2 

0E57 

0PMRC4 

0E60 
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0PMAC5 

0E6C 

OUTCH 

0203 

0UTCH2 

OUTCHR 

149F 

0UTL55 

0546 

0UTL75 

OUTLI1 

0517 

0UTLI2 

0520 

0UTLI3 

0UTLI6 

0550 

0UTLI7 

056B 

0UTLI8 

0UTM18 

0ECF 

OUTMR0 

0EB9 

OUTMA1 

0UTMA4 

0ED7 

OUTMAC 

0EAE 

OUTSV 

PAGE2 

0A73 

PAGE4 

0R7E 

PAGE5 

PAGEL1 

0C4D 

PAGEL2 

0C56 

PAGEL4 

PASS 

0A3D 

PCHAR 

00CC 

PCRLF 

PDATA 

1492 

PDATA2 

149E 

PFLG 

PGNUM 

0BF7 

PGNUM4 

0C03 

PGSTR 

PRNIT 

15A4 

PRNTR 

0093 

PRNU27 

PRNU32 

1288 

PRNU35 

1297 

PRNU37 

PRNU72 

1303 

PRNU73 

1307 

PRNU82 

PRNUM3 

1277 

PRNUM4 

12A7 

PRNUM5 

PRNUI18 

130F 

PROC 

033D 

PR0C2 

PROUCH 

15C4 

PRQU 

152C 

PSTRNG 

PTIND2 

0C83 

PTIND3 

0C98 

PTIND4 

PUNT35 

036A 

PUNTS2 

0358 

PUNTS3 

PUNTS6 

0387 

PUNTS7 

038D 

PUNTST 

QUSTR 

1562 

REMMA4 

0DEE 

REMMA6 

RESPC 

0B26 

RETMA2 

0678 

RETMAC 

RIGHTJ 

05A7 

RINS 

04C9 

RINS2 

RINS5 

04ED 

RINS6 

04F7 

RINS7 

R0M2 

118A 

RPT 

0CB9 

RTJ 

SAUT04 

119D 

SAVS 

0D2D 

SAVS1 

SAVS4 

0D44 

SAVS5 

0D48 

SAVSX 

SBUF 

1774 

SCAP 

00B8 

SCRL55 

SCRLF 

08B1 

SCRLF1 

08B4 

SCRLF3 

SCRLF6 

08F4 

SCRLF7 

0903 

SCRLF8 

SENV1 

0B90 

SENV2 

0B91 

SENV3 

SENV8 

0BDE 

SENV9 

0BED 

SENV95 

SIGN 

0072 

SIN 

007C 

SIND 

SPACE2 

0A55 

SPACE4 

0A5E 

SPACE6 

SPIFLG 

0090 

SPSPF 

0076 

SROM 

STAB4 

0B5A 

STACK 

01FF 

START 

STOP1 

0CD8 

STOPS 

0CE5 

STPOUT 

SUPL 

00B5 

SVDSPC 

0087 

SWRDF 

TABCH 

0B2A 

TABCH2 

0832 

TABEND 

TABFLG 

0082 

TRBS 

0110 

TBLEND 

TEMP 

00EC 

TEMP2 

00EE 

TEMP5 

TERM2 

0B63 

TERM4 

0B6C 

TFILF 

TITL12 

0FE1 

TITL15 

0FE7 

TITL65 

TITLE 

0FC1 

TITLE1 

0FD1 

TITLE2 

TITLE6 

1032 

TITLE7 

1049 

TITLE8 

TLEN2 

0FC0 

TLLN 

0084 

TLN 

TPOS 

00B9 

TRAPS 

17D8 

TRPEND 

TSTBRK 

1471 

TSTNE2 

1111 

TSTNEG 

USER 

1FF5 

WIDTH 

00C6 

XFRTT2 

XTEMP 

00F8 

YEAR 

0058 
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14A9 

0UTCH3 

14AE 

0UTCH4 

14B7 

056E 

0UTL82 

0595 

0UTL85 

059F 

052A 

0UTLI4 

0532 

0UTLI5 

053F 

0589 

0UTLI9 

05A4 

OUTLIN 

050B 

0FBB 

OUTMR2 

0ED1 

0UTMR3 

0ED2 

0D49 

OVFSTR 

1579 

PAGE 

0A67 

0A83 

PAGE6 

0A8A 

PAGEL 

0C44 

0C58 

PASCHR 

0075 

PASFLG 

008C 

0899 

PCRLF2 

08A8 

PCRLF4 

08AD 

P0CA 

PGL 

004F 

PGN 

0074 

154A 

PINIT 

020C 

POUCH 

020F 

125E 

PRNU28 

1272 

PRNU31 

127E 

129F 

PRNU45 

12C4 

PRNU65 

12EA 

1319 

PRNUM 

1256 

PRNUM2 

1258 

12CC 

PRNUM6 

12E0 

PRNUM7 

12F0 

0343 

PR0C3 

0349 

PR0C4 

0350 

1490 

PTFL 

007B 

PTIND 

0C76 

0CA4 

PTIND5 

0CAA 

PULLX 

13FF 

0360 

PUNTS4 

0382 

PUNTS5 

0335 

0353 

PUSH4 

13FB 

PUSHX 

13ED 

0E0B 

REMMAC 

0DE5 

REMNAM 

0E15 

066D 

RETREG 

00F4 

RIGHT2 

05AA 

04CD 

RINS3 

04D4 

RINS4 

04DF 

04F9 

RINS8 

0507 

ROM , 

00C4 

00D0 

RWND 

14E5 

SAUTO 

1191 

0D38 

SRVS2 

0D3A 

SAVS25 

0D3E 

0EA0 

SAVSX2 

0EAB 

SBFLG 

009E 

08E8 

SCRL75 

0906 

SCRL85 

091A 

08C0 

SCRLF4 

08DC 

SCRLF5 

08E3 

0910 

SCRLF9 

0923 

SENV 

0B83 

0896 

SENV4 

0BB3 

SENV6 

0BC2 

0BF0 

SETCA2 

07DB 

SETCAP 

07CE 

0C59 

SNGLS 

0A99 

SPACE 

0A44 

0A66 

SPCPT1 

00E8 

SPCPT2 

00EA 

1188 

STAB 

0B41 

STAB2 

0B44 

0200 

STCAP 

0C6D 

STOP 

0CD2 

00A8 

STPSTR 

1558 

SUB 

005C 

0886 

SYSERR 

0EE0 

TAB 

00C8 

0124 

TABFI2 

0B3E 

TABFIL 

0B35 

0A3C 

TCNT 

00BB 

TCPNT 

00AA 

00F0 

TEMP6 

00F2 

TERM 

0B60 

006E 

TFILL 

00C1 

TIND 

00B3 

1041 

TITL75 

1056 

TITL78 

I860 

1001 

TITLE4 

1024 

TITLE5 

102F 

1063 

TITLE9 

106E 

TLEN 

0FB4 

00D8 

TLPP 

0094 

TOUTL 

007A 

1808 

TSIN 

00B2 

TSTBR2 

1477 

1106 

TTLBUF 

18BE 

TTLPNT 

00BD 

109D 

XFRTTL 

1086 

XMAC 

0080 
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OBJECT CODE: 

SI 13 0280 7E 

02 

12 

7E 

El 

D1 

7E 

El 

AC 

7E 

E0 

D0 

7E 

15 

A4 

7E 

3fl 

SI 

13 

0210 

15 

C4 

8E 

01 

FF 

DE 

97 

DF 

9B 

BD 

02 

AS 

97 

95 

97 

93 

C7 

SI 

13 

0220 

97 

94 

4R 

97 

96 

CE 

14 

Efl 

BD 

14 

90 

08 

BD 

14 

90 

BD 

D5 

SI 

13 

0230 

14 

85 

CE 

15 

1R 

BD 

14 

90 

BD 

14 

44 

7C 

00 

65 

BD 

12 

FE 

SI 

13 

0240 

lfl 

24 

16 

96 

70 

97 

4C 

BD 

12 

lfl 

24 

0D 

96 

70 

97 

43 

73 

SI 

13 

0250 

BD 

12 

lfl 

24 

04 

96 

70 

97 

58 

CE 

15 

£C 

BD 

14 

90 

BD 

67 

SI 

13 

0260 

02 

06 

81 

50 

26 

04 

97 

93 

£0 

15 

CE 

15 

66 

BD 

14 

90 

7E 

SI 

13 

0270 

BD 

14 

44 

?C 

00 

65 

BD 

12 

lfl 

24 

04 

96 

70 

97 

94 

CE 

74 

SI 

13 

0280 

15 

4fl 

BD 

14 

90 

BD 

14 

44 

7C 

00 

65 

BD 

12 

lfl 

24 

0D 

9fl 

SI 

13 

0290 

96 

70 

97 

95 

BD 

12 

lfl 

24 

04 

96 

70 

97 

96 

BD 

14 

35 

8E 

SI 

13 

02R0 

4F 

CE 

00 

5fl 

8D 

06 

20 

18 

4F 

CE 

00 

40 

fl7 

00 

03 

8C 

70 

SI 

13 

02B0 

00 

93 

26 

F3 

CE 

00 

9E 

A7 

00 

03 

8C 

00 

Dfl 

26 

F3 

39 

B1 

SI 

13 

02C0 

CE 

01 

10 

4F 

R7 

00 

08 

8C 

01 

25 

26 

F8 

4C 

97 

D6 

97 

2D 

SI 

13 

02D0 

D7 

97 

BF 

97 

FC 

97 

C8 

97 

C9 

97 

4D 

97 

42 

97 

83 

97 

2D 

SI 

13 

02E0 

74 

86 

41 

97 

C6 

97 

C7 

97 

4B 

97 

9F 

97 

D8 

97 

D9 

4C 

D1 

SI 

13 

02F0 

97 

4F 

CE 

19 

F4 

DF 

RC 

DF 

R6 

86 

FF 

fl7 

00 

08 

8C 

IF 

4fl 

SI 

13 

0300 

F2 

26 

F8 

DF 

A4 

09 

6F 

00 

6F 

01 

6F 

02 

86 

0D 

B7 

18 

9B 

SI 

13 

0310 

0fl 

36 

R0 

97 

Cl 

CE 

17 

D8 

86 

FF 

A7 

00 

03 

3C 

18 

08 

B4 

SI 

13 

0320 

26 

F8 

BD 

02 

0C 

CE 

15 

E4 

DF 

DA 

DF 

DC 

BD 

06 

46 

DE 

BE 

SI 

13 

0330 

DE 

DF 

E0 

CE 

16 

7F 

DF 

E4 

CE 

19 

72 

DF 

Ffl 

96 

74 

91 

29 

SI 

13 

0340 

95 

24 

06 

C6 

0F 

D 7 

79 

20 

OR 

91 

96 

23 

03 

7E 

09 

53 

74 

SI 

13 

0350 

7F 

00 

79 

96 

Cfl 

81 

83 

26 

07 

96 

CC 

7F 

00 

Cfl 

20 

37 

3E 

SI 

13 

0360 

BD 

06 

3C 

D6 

6fl 

27 

03 

7E 

09 

51 

D6 

CS 

27 

29 

D6 

Cfl 

6fl 

SI 

13 

0370 

Cl 

01 

22 

19 

27 

11 

81 

2E 

27 

03 

81 

21 

27 

04 

31 

3F 

D9 

SI 

13 

0380 

26 

03 

7C 

00 

Cfl 

20 

10 

31 

20 

27 

F7 

20 

CE 

31 

20 

27 

55 

SI 

13 

0390' 

Cfl 

97 

CC 

86 

20 

20 

EB 

r- 

16 

7F 

DF 

EE 

DF 

E2 

DE 

Dfl 

D2 

SI 

13 

03R0 

81 

0D 

£6 

14 

D6 

C8 

26 

05 

DF 

P8 

7E 

05 

0B 

86 

20 

fl7 

56 

SI 

13 

03B0 

00 

08 

9C 

DE 

26 

F9 

20 

IE 

A7 

00 

7C 

00 

42 

0S 

9C 

DE 

73 

SI 

13 

03C0 

26 

06 

D6 

C8 

27 

02 

20 

0E 

8C 

16 

7F 

26 

04 

36 

0D 

20 

0fl 

SI 

13 

03D0 

D7 

DF 

DR 

7E 

03 

3D 

D6 

Cfl 

Cl 

03 

26 

04 

96 

CC 

20 

08 

B0 

SI 

13 

03E0 

81 

20 

27 

4E 

BD 

06 

8C 

31 

20 

27 

47 

36 

86 

£0 

DF 

DE 

FD 

SI 

13 

03F0 

09 

8C 

15 

E3 

27 

1C 

fll 

00 

£6 

F6 

08 

9C 

DE 

27 

13 

A6 

0ft 

SI 

13 

0400 

00 

DF 

EC 

DE 

EE 

fl7 

00 

03 

DF 

EE 

DE 

EC 

86 

20 

A7 

00 

BE 

SI 

13 

0410 

20 

E3 

32 

7F 

00 

32 

CE 

01 

£4 

DF 

80 

DE 

EE 

A7 

00 

08 

DO 

SI 

13 

0420 

DF 

E2 

81 

20 

27 

0C 

3C 

16 

AC 

27 

07 

BD 

06 

3C 

DE 

E2 

fl8 

SI 

13 

0430 

20 

EB 

5F 

CE 

15 

E4 

DF 

E3 

fl6 

00 

31 

20 

26 

09 

5C 

08 

E6 

SI 

13 

0440 

9C 

DE 

26 

F4 

7E 

05 

0B 

DP 

Efl 

BD 

05 

B7 

CE 

15 

E4 

86 

F7 

SI 

13 

0450 

20 

R1 

00 

27 

07 

08 

9C 

DE 

27 

10 

£0 

F5 

08 

9C 

DE 

26 

33 

SI 

13 

0460 

05 

7C 

00 

B6 

20 

04 

fll 

00 

27 

F2 

D6 

D4 

27 

03 

7E 

06 

IB 

SI 

13 

0470 

19 

D6 

D6 

27 

CF 

D6 

D0 

£7 

03 

7E 

05 

fl7 

D6 

CE 

27 

03 

F5 

SI 

13 

0480 

7E 

05 

B2 

D6 

B6 

26 

BD 

D6 

68 

26 

B9 

D6 

6D 

27 

3fl 

CE 

32 

SI 

13 

0490 

15 

E4 

DF 

EC 

DE 

DE 

09 

fl6 

00 

81 

£0 

26 

fl7 

DE 

EC 

R6 

4B 

SI 

13 

04R0 

00 

81 

20 

27 

07 

08 

9C 

DE 

27 

E5 

20 

F3 

C6 

01 

BD 

05 

4F 

SI 

13 

04B0 

DD 

D6 

CE 

27 

01 

39 

DE 

EC 

A6 

00 

81 

20 

£6 

87 

OS 

9C 

74 

SI 

13 

04C0 

DE 

27 

CC 

20 

F3 

DF 

EC 

20 

CB 

DE 

DE 

86 

20 

09 

fll 

00 

82 

SI 

13 

04D0 

27 

FB 

DF 

EC 

DE 

DE 

09 

A6 

00 

31 

20 

26 

2E 

DE 

EC 

fl6 

5B 

SI 

13 

04E0 

00 

81 

20 

27 

08 

09 

8C 

15 

E3 

27 

DE 

20 

Fc 

C6 

01 

BD 

10 

SI 

13 

04F0 

05 

DD 

D6 

CE 

27 

01 

39 

DE 

EC 

R6 

00 

81 

20 

26 

03 

09 

C9 

SI 

13 

0500 

8C 

15 

E3 

27 

C4 

£0 

F2 

DF 

EC 

£0 

C9 

7F 

00 

86 

D6 

4E 

59 

SI 

13 

0510 

7D 

00 

7B 

£6 

02 

DB 

4S 

7F 

00 

7B 

DB 

7C 

2B 

0C' 

27 

efl 

DB 

SI 

13 

0520 

86 

20 

37 

BD 

14 

9F 

33 

5fl 

26 

F6 

D6 

C3 

27 

11 

86 

20 

55 

SI 

13 

0530 

DE 

DE 

8C 

15 

E4 

27 

19 

09 

fll 

00 

27 

F6 

08 

DF 

R8 

CE 

12 

SI 

13 

0540 

15 

E4 

9C 

R8 

27 

0fl 

R6 

00 

BD 

14 

9F 

08 

9C 

AS 

26 

F6 

BB 

SI 

13 

0550 

5F 

D7 

8E 

D7 

6F 

D7 

Cfl 

D7 

73 

D7 

7C 

73 

00 

6D 

CE 

15 

8C 

SI 

13 

0560 

E4 

DF 

DR 

CE 

01 

10 

DF 

80 

BD 

14 

14 

CE 

16 

7F 

9C 

E£ 

E6 

SI 

13 

0570 

27 

17 

R6 

00 

08 

DF 

EC 

DE 

DA 

R7 

00 

08 

9C 

DE 

27 

09 

flF 
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SI 

13 

0580 

DF 

D8 

DE 

EC 

7C 

00 

42 

20 

E5 

CE 

16 

7F 

DF 

E2 

BD 

08 

38 

SI 

13 

0390 

99 

96 

D2 

27 

08 

48 

27 

07 

36 

BD 

03 

99 

32 

20 

F6 

96 

3B 

SI 

13 

0580 

66 

27 

01 

39 

7E 

03 

3D 

BD 

06 

0B 

CE 

15 

E3 

8D 

2E 

7E 

F0 

SI 

13 

05B0 

05 

0B 

8D 

57 

57 

20 

F3 

DE 

E8 

9C 

E8 

27 

IF 

9C 

DE 

27 

86 

SI 

13 

05C0 

0E 

86 

00 

08 

DF 

E8 

DE 

E8 

87 

00 

08 

DF 

E8 

20 

E8 

DE 

80 

SI 

13 

05D0 

E8 

86 

20 

9C 

DE 

27 

05 

87 

00 

08 

20 

F7 

39 

5D 

27 

28 

36 

SI 

13 

05E0 

37 

DF 

EC 

DE 

DE 

DF 

E8 

08 

58 

26 

FC 

DF 

E8 

DE 

E8 

9C 

D3 

SI 

13 

05F0 

EC 

27 

0E 

86 

00 

09 

DF 

E8 

DE 

E8 

87 

00 

09 

DF 

ER 

20 

FF 

SI 

13 

0600 

EC 

33 

86 

20 

08 

87 

00 

58 

26 

F8 

39 

5F 

86 

20 

DE 

DE 
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